Use Net::Printer;

# Create new Printer Object

$lineprinter = new Net::Printer(

use Net::Printer;

# Create new Printer Object

$lineprinter = new Net::Printer(

                     filename=>"/home/jdoe/myfile.txt",

                      printer     => "lp",

                      server      => "printserver",

                      port        => 515,

                      lineconvert => "YES"

                      );

# Print the file

$result = $lineprinter->printfile();