my $socket = new IO::Socket::INET (
                peerAddr => $target,
                peerPort => '80',
                Proto => 'tcp',
                Timeout => $timeout,);
        die "Socket failed at $target\n" unless $socket;

        print $socket "GET http://$target/~$users[$i] HTTP/1.0\r\n\r\n";
        my @source = <$socket>;