> >use strict; >use warnings; > >use IO::Socket; > >my $sock = IO::Socket::INET->new > (PeerAddr => 'www.google.com', > PeerPort => 7, > Proto => 'tcp') or die "$!"; > >print $sock "This is a test\n"; >close $sock; >__END__ >
Hello,your script itself has no problems unless the "\n" would be replaced with "\r\n" when it's running on Windows. Also you can use 'tcpdump' to alalyse the network transition. -- Books below translated by me to Chinese. Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/ Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
