Revered Monks
I have the below code
use IO::Socket;
chop (my $hostname = `hostname`);
my $sock = new IO::Socket::INET (
PeerAddr => '10.106.2.43:25',
LocalAddr => $hostname,
Proto => 'tcp') || die "cant create socket$@\n";
print $sock "helo $hostname\n";
($result = <$sock>);
print $result."\n\n";
$sock->flush;
print $sock "helo $hostname\n";
($result = <$sock>);
print $result."\n\n";
The first print gives the below
220 ildmailw102p Microsoft ESMTP MAIL Service, Version: 7.5.7601.17514
+ ready at Tue, 1 Jul 2014 14:48:19 -0400
Where as subsequently it hangs without printing the second line.
Any advise here would really help
-Prasanna.K