$smtp = Net::SMTP->new($host);
print ">>Connected to $host\n";
print $smtp->banner()."\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->mail($fromaddr);
print ">>MAIL FROM: $fromaddr<<\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->to($toaddr);
print ">>RCPT TO: $toaddr<<\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->data();
print ">>DATA\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->datasend("From: \"$fromname\" <$fromaddr>\n");
$smtp->datasend("To: $toaddr\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$data\n");
$smtp->dataend();
print ">>End of DATA\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->quit;
print ">>Closed connection\n[".$smtp->code()."] ".$smtp->message()."\n";