use Net::SMTP;

my $smtp = Net::SMTP->new('mailhub.yahoo.com');
my $MailFrom = "test_test\@yahoo.com";
$smtp->mail( $MailFrom );
$smtp->recipient("san.gov\@yahoo.com", { SkipBad => 1 });
$smtp->data();
$smtp->datasend("Subject: Test mail");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;