#Send raw data to printer on Parallel Port 0:
open PRINTER, '>>', '/dev/lp0';
print PRINTER $data;
close PRINTER;

#Send data to lpd for printing
open PRINTER, "|lpr -P $printer";
print PRINTER $data;
close PRINTER;