use Mail::Sender;

my $sender = new Mail::Sender;

if ( $sender->MailMsg({
        smtp    => 'my.smtp.net',
        from    => 'myaddr@myhost.net',
        to      => 'myaddr@myhost.net',
        subject => 'test',
        msg     => 'test',
    }) < 0 ) {
    print "Bad: $Mail::Sender::Error\n";
} else {
    print "Mail sent\n";
}