I have had luck with the following two methods:

# method 1 local printer
open(LPT, ">LPT1");
print LPT "$data\f";
close(LPT);

# method 2 network printer
open(LPT, ">\\printserver\printername");
print LPT "$data\f";
close(LPT);
[download]