use Net::Printer;

         my $errstr="test";

         $lineprinter = new Net::Printer(
                                                  filename    => "E:/Snailmail/testprint.txt",
                                                  printer     => "\\http://192.168.25.205:631\unknown",
                                                  server      => "192.168.25.205",
                                                  port        => 631,
                                                  lineconvert => "YES"
                                                  );

                $result = $lineprinter->printfile("E:/Snailmail/testprint.txt");
                $errstr = $lineprinter->printerror();

                @result = $lineprinter->queuestatus();

                print $errstr;
                print @result;