use IO::Socket;
$ip = 'latte.isprime.com';
$sock = IO::Socket::INET->new(PeerAddr => $ip,
                                 PeerPort => 587,
                                 Proto    => 'tcp',
				 Timeout => 1,
                                 Type=>SOCK_STREAM);
							
if($@) { print "$_ Failed\n"; }
else{
$sock->recv($ant,1024,0);
print $ant;
}
$groet = "EHLO latte.isprime.com\n";
print $groet;
print $sock $groet;
$sock->recv($ant,1024,0);
print $ant;
$afz = 'MAIL FROM:<ayfi@live.nl>'."\n";
print $afz; 
print $sock $afz;
$sock->recv($ant,1024,0);
print $ant;