Select Code to Download

my $text = "Printing test...\n";
open FH, ">LPT1:";
...
$| = 1; # Turn on autoflush for FH
select(*STDOUT);
print FH "$text\n";