MIME::Lite->send('smtp', $smtpserver, Timeout=>60);
my $msg = $msg = MIME::Lite->new(....);
...
$msg->send;