#!usr/bin/perl

use LWP::Simple;

getprint($ARGV[0]);

exit;
##</code><code>##

IO::Socket::connect(/usr/lib/perl5/5.8.0/i386-linux-thread-multi/IO/Socket.pm:121):
121:                    $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);

##</code><code>##

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:59):
59:         for (@header_order) {
  DB<8>

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:60):
60:             my $lc = lc $_;
  DB<8> s

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:61):
61:             $header_order{$lc} = ++$i;
  DB<8> s

HTTP::Headers::CODE(0x82e8db0)(/usr/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:62):
62:             $standard_case{$lc} = $_;
  DB<8> s