Select Code to Download

open(VIRTUALPRN, "| perl print.pl");

print VIRTUALPRN "foobar\n"

select VIRTUALPRN;  # make this the "default" output handle
$|++;  # disable output buffering on this handle

use FileHandle;
...
...
...
print $VirtualPrnFH "foobar\n";
...