Help for this page
open $wFH, "| more" ;
print $w_FH<<THEEND;
open FH, "| more" ; print FH " hey "; ... THEEND close FH; print "FH\n";