I am trying to get the status of my network printer. I am now using the code given below:

use Net::Printer;

         my $errstr="test";

         $lineprinter = new Net::Printer(
                                                  filename    => "E:/S
+nailmail/testprint.txt",
                                                  printer     => "\\ht
+tp://192.168.25.205:631\unknown",
                                                  server      => "192.
+168.25.205",
                                                  port        => 631,
                                                  lineconvert => "YES"
                                                  );

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

                @result = $lineprinter->queuestatus();

                print $errstr;
                print @result;
[download]

But i cant connect to the printer..... Please help me.