http://www.perlmonks.org?node_id=328389

MF has asked for the wisdom of the Perl Monks concerning the following question:

Hello, fellow monks. I'm trying to learn to use IO::Socket and decided to write a quick SMTP dialogue to get the hang of it. I had it working in this fashion, but I changed something and now Perl just stalls when I run my little program. The static print doesn't even show up, so there must by something wrong with my module call, but I have no idea what. I changed everything around a dozen times and I'm at a loss right now. I'd appreciate any help.
#!/usr/bin/perl use warnings; use strict; use IO::Socket; my $sock = new IO::Socket::INET(PeerAddr => 'x.y.z', PeerPort => '25', Proto => 'tcp',); print "bier"; print $sock "HELO x\n"; print <$sock>; close ($sock);