Select Code to Download

my $smtp = Net::SMTP->new('mail.mydomain.com');
$smtp->mail($fromaddr);
...
$smtp->dataend();
$smtp->quit;