Select Code to Download

use Mime::Lite
MIME::Lite->send('smtp', $mail_server_name_or_ip_address, TimeOut=>60)
+;
...
 Data=>$body_of_email
);
$msg->send;

 use Net::SMTP
 my $smtp=Net::SMTP->new($mailserver_name_or_ip_address);
...
 $smtp->datasend("\n$body_of_email\n");
 $smtp->dataend();
 $smtp->quit;