Help for this page

Select Code to Download


  1. or download this
    use IO::Socket;
chop (my $hostname = `hostname`);
...
print $sock "helo $hostname\n";
($result = <$sock>);
print $result."\n\n";
  2. or download this
    220 ildmailw102p Microsoft ESMTP MAIL Service, Version: 7.5.7601.17514
+ ready at  Tue, 1 Jul 2014 14:48:19 -0400