Help for this page

Select Code to Download


  1. or download this
    sub _new_socket
{
...
  print "ok\n";
  return $s;
}
  2. or download this
    Creating New socket: www.google.ch, 80, 45
MyHttp
max_size: 50000000
ua: LWP::UserAgent=HASH(0xe09910)
scheme: http
  3. or download this
    use strict;
use LWP::UserAgent;
...
  my $data = $resp->content;
  print "$data\n";
}