use Net::SMTP;
$sender = Net::SMTP->new ('mailhost');
  $sender->mail('joe@pleasework.com');
  $sender->to ('bob@hotmail.com');
  $sender->data();
  $sender->datasend ("From: Joe\n");
  $sender->datasend ("To: Bob\n");
  $sender->datasend ("Subject: $mail{'subject'}\n");
  $sender->datasend ("\n");
  $sender->datasend ("$mail{'msg'}");
  $sender->dataend;
  $sender->quit;