Open to a pipe:

open($f,'|-','less') or die "Error: Could not help";
print $f "hi";
close $f;
[download]

More information about this you can find with "perldoc -f open"