Select Code to Download

my $smtp;
$smtp = Net::SMTP->new( $mailhost, Timeout =} $tmout );
...
{print server response here}

$smtp>quit;

$response=$smtp->mail( $fromaddr );
print "$response\n";