use Net::SMTP;

my $from='from@email.domain';
my $to='to@email.domain';
my $smtp= Net::SMTP->new('127.0.0.1',
                Timeout => 180);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("YOUR MESSAGE");
$smtp->dataend();
$smtp->quit();