#!/usr/bin/perl

use IO::Socket;

$socket=IO::Socket::INET->new(PeerAddr => localhost,
                               PeerPort => "25",
                               Proto => "tcp"
                              ) or die "MAIL: $!";

print $socket "MAIL FROM: <somebody>", "\n";
print $socket "RCPT TO: <xxx@xxxxxxxxxx.xx>", "\n";
print $socket "DATA", "\n";
print $socket "xxxxxxxxxxxxxxxxx", "\n";
print $socket ".", "\n";
print $socket "QUIT", "\n";