open( WEBLOG, ">$log" );
print WEBLOG "====================\n";
foreach $string (@strings) {
    chomp $string;
    $string = "$string" . " HTTP/1.0\012\012";

    my $sock = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,
        Proto    => $proto
    );
    print $sock "$string";

    while (<$sock>) {
        push @page, $_;
    }
    if ( $page[0] =~ m/404/ ) {
        chomp $string;
        print WEBLOG $string;
        print WEBLOG "====================\n";
    }
    @page = ();

}
close(WEBLOG);