use Net::SMTP
 my $smtp=Net::SMTP->new($mailserver_name_or_ip_address);
 $smtp->mail($from_address);
 $smtp->to($to_address);
 $smtp->data();
 $smtp->datasend("To: $to_address\n");
 $smtp->datasend("From: $from_address\n");
 $smtp->datasend("Subject: $message_subject\n");
 $smtp->datasend("\n$body_of_email\n");
 $smtp->dataend();
 $smtp->quit;