Help for this page

Select Code to Download


  1. or download this
    #!usr/bin/perl

use LWP::Simple;
...
getprint($ARGV[0]);

exit;
  2. or download this
    IO::Socket::connect(/usr/lib/perl5/5.8.0/i386-linux-thread-multi/IO/So
+cket.pm:121):
121:                    $err = $! || (exists &Errno::ETIMEDOUT ? &Errn
+o::ETIMEDOUT : 1);
  3. or download this
    HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:59):
59:         for (@header_order) {
...
HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Hea
+ders.pm:62):
62:             $standard_case{$lc} = $_;
  DB<8> s