use Net::Printer;

  # Create new Printer Object
  $lineprinter = new Net::Printer(
                                  filename    => 'c:\temp\test.txt',
                                  printer     => 'Apple LaserWriter II NTX v51.8',
                                  server      => '172.16.8.9',
                                  port        => 'IP_172.16.8.9',
                                  lineconvert => 'YES'
                                  );
#  # Print the file
 	$result = $lineprinter->printfile();

##</code><code>##

ERROR:Net::Printer[145]: Could not connect to printer: Unknown error