$msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Type => 'text/html', Data => qq{ $body } ); MIME::Lite->send('smtp', 'smtpsvr.net, Timeout=>240); $msg->send();