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