You'll want to probably take a look at Net::SMTP or Mail::Sender

Here's a Net::SMTP mailer script I have that works on a WinNT box.

sub sendmail{
   my ($fromemail,$fromname,$toemail,$toname,$subject,$message)=@_;
   @_ == 6 or die "Improper number of arguments for sendmail function"
+;
   my $smtp=Net::SMTP->new($globalMailServer) or die ("Can't connect t
+o mail server '$globalMailServer'\n");
   $smtp->mail($fromemail);
   if(ref $toemail){
      $smtp->to(@$toemail); 
   } else{
      $smtp->to($toemail);
   }
   $smtp->data();
   $smtp->datasend("To: $toname\n");
   $smtp->datasend("From: $fromname\n");
   $smtp->datasend("Subject: $subject\n");
   $smtp->datasend("\n");
   $smtp->datasend($message);
   $smtp->dataend();
   $smtp->quit();
}
[download]

vroom | Tim Vroom | vroom@blockstackers.com