#!/usr/bin/perl

use IO::Socket;

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

print $socket "HELO your_hostname\r\n";
print $socket "MAIL FROM: <you\@your.domain>\r\n";
print $socket "RCPT TO: <them\@their.domain>\r\n";
print $socket "DATA\r\n";
print $socket "From: <you\@your.domain>\r\n";
print $socket "To: <them\@their.domain>\r\n";
print $socket "Subject: My automatic message\r\n";
print $socket  "\r\n";
print $socket "Your data here\r\n";
print $socket ".", "\r\n";
print $socket "QUIT", "\r\n";