use Net::SMTP;

my $from='foo@spangle.com';
my $to='someuser@host.com';
my $smtp= Net::SMTP->new('SMTPHOSTNAME',
                Timeout => 180);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("YOUR MESSAGE");
$smtp->dataend();
$smtp->quit();