open( LPT, "+>LPT1" ) or die "Can't access printer: $!";
print LPT "Text to print\n\f";
close (LPT);