my $ServerName = SMAILSVR};
$smtp = Net::SMTP->new($ServerName)
my $MailFrom = 'postmaster\@testme.com';
my $MailTo1 = testmeuser@home.com};
$smtp->mail( $MailFrom );
$smtp->to( $MailTo1 );
@to = ('testme@yahoo.co.uk');
$smtp->recipient(@to);
$smtp->data();
$smtp->datasend();
$smtp->quit();