One of:

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

should let you write text to be printed. But I know almost nothing about this.