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...
use IO::Socket;
my $socket = IO::Socket::INET->new("localhost:80")
or die "cannot connect to localhost:80 : [EMAIL PROTECTED]";
print $socket "GET / HTTP
I think this bit of code used to work, but I can't figure how to make
the last line dump anything out...
,- [ ]
| use strict;
| use warnings;
| use IO::Socket;
|
| my $socket =->new("localhost:80")
| or die "cannot connect to localhost:80 : [EMAIL PROTECTED]";
| print $socket "GET /