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);