$file = "/tmp/emaildata." . time . ".txt";



..code to file the file with data..



$lineprinter = new Net::Printer(

                                  filename    => $file,

                                  printer     => "lpr",

                                  server      => "172.16.0.166",



                                  port        => 515,

                                  lineconvert => "YES"

                                );

$result = $lineprinter->printfile();