Socket connection problem

Hi.

I wrote the following script which is giving me some problems. The script is being run behind a company firewall and I wonder if that is part of the problem.

There are two problems.

1. When it does return anything it seems as if it is coming from the server on which the script is running. e.g. it returns the local 'index.html' and not the page from the remote server.

2. The 'while' loop does not seem to exit until the server timeout. If I run the script from the unix command line it prints the document content but does not return me to the prompt.

The 'connect' seems to work, I am just not convinced that it is connecting to the correct server.

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

use Socket;
$server = "search.excite.com";
$port = 80;

$server_addr = (gethostbyname($server))[4];
$server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
$proto = (getprotobyname('tcp'))[2];    

socket(MYSOCK, PF_INET, SOCK_STREAM, $proto)|| die "Failed to initialize socket: $!\n";

connect(MYSOCK, $server_struct) || die "Failed to connect() to server: $!\n";

select(MYSOCK);
$| = 1;
select(STDOUT);
print MYSOCK "GET /search.gw\n\n";

while (<MYSOCK>) {
     print;
}
close(MYSOCK);