open(PRINTER,">prn") or die "Can't write to aux: $!\n";
open(PRINTER,">lpt1") or die "Can't write to lpt1: $!\n";