open $wFH, "| more" ;

##</code><code>##

print $w_FH<<THEEND;

##</code><code>##

open FH, "| more" ;
print FH " hey ";
print FH<<THEEND;

LINES: info
##
##       this is a test
##
THEEND
close FH;
print "FH\n";