$smtp = Net::SMTP->new(servername);
$smtp->mail($ENV{REMOTE_HOST});
$smtp->to($email_address);
$smtp->data();
$smtp->datasend("To: " . $what_ever);
$smtp->datasend("From: name\@xxxx.com \n");
$smtp->datasend("Subject: whatever");
$smtp->datasend("\n");
$smtp->datasend($email_msg);
$smtp->dataend();

##</code><code>##

$smtp->quit();