Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my $fh     = IO::Socket::INET->new($server) or die "Error: $!";
my $line   = <$fh>;
print $line;

Select or download this


C:\Documents and Settings\admin\Desktop\Scripts>perl network.pl mail.h
+otmail.com:smtp
Error: Unknown error at network.pl line 8.

C:\Documents and Settings\admin\Desktop\Scripts>