Select Code to Download

$smtp = Net::SMTP->new(servername);
$smtp->mail($ENV{REMOTE_HOST});
$smtp->to($email_address);
...
$smtp->datasend("\n");
$smtp->datasend($email_msg);
$smtp->dataend();