Errr, sorry, I cut the "IO::Socket::INET" to put it in the subject, I
should have done a copy...
Here is what it should have been...
<code>
use IO::Socket;
my $socket = IO::Socket::INET->new("localhost:80")
or die "cannot connect to localhost:80 : [EMAIL PROTECTED]";
print $socket "GET / HTTP/1.1\n\n";
while (<$socket>) { print } # My Problem line...
</code>
Thanks for any help!
--
Tim Musson
Flying with The Bat! eMail v1.62q
Windows 2000 5.0.2195 (Service Pack 2)
Ever stop to think, and forget to start again?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
