#!/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);