Help for this page

Select Code to Download

Select or download this

        my $socket = new IO::Socket::INET (
                peerAddr => $target,
...
        print $socket "GET http://$target/~$users[$i] HTTP/1.0\r\n\r\n
+";
        my @source = <$socket>;

Select or download this

  use LWP::Simple;
  my $source = get "http://$target/~$users[$i]";