my $EOL = "\015\012";
my $BLANK = $EOL x 2;

my $host = "www.googfgle.com";
my $document = "/addurl?type=submit&q=$url&dq=";

$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http(80)",
);
unless ($remote) { &error_submit("Google"); }
$remote->autoflush(1);
print $remote "GET $document HTTP/1.0" . $BLANK;
$good_engine .= qq~ <li>Google</li> ~;

[Sat Jul 21 07:00:40 2001] submitnew.cgi: Can't call method "autoflush" on an undefined value at /home/ace-webm/public_html/cgi-bin/submitnew.cgi line 94.
Prototype mismatch: sub main::head vs ($) at /home/ace-webm/public_html/cgi-bin/submitnew.cgi line 19
Prototype mismatch: sub main::head vs ($) at /home/ace-webm/public_html/cgi-bin/submitnew.cgi line 19

$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http(80)") or &submit_error("Google");

sub test
{

$cr = "\015\012";
$host = "www.direcerethit.com";
$path = "/index.html";

$host or return undef, "Can't parse host from url: $url";
$sock = new IO::Socket::INET ( PeerAddr => $host,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM,
) || &error_submit("Google"); exit;
$sock->autoflush(1);
$sock->timeout(5);
print $sock "GET $path HTTP/1.0$cr";
print $sock "Host: $host$cr";
print $sock "User-Agent: Ace Submit (http://www.ace-installer.com/)$cr$cr";
my $response = <$sock>;
close $sock;

$good_engine .= qq~ <li>Direct Hit</li> ~;
print "Done engine 3";

}

# Error to push the errors into the unsubmitted subroutine...
sub error_submit
{
my ($error) = shift;
$error_engine .= qq~ <li>$error</li> \n~;
}