$msg = MIME::Lite->new ( From      =>$SendFrom,
                         To        =>$SendTo,
                         Subject   =>$SendSubject,
                         Type      =>'TEXT',
                         Data      =>$SendText
                        );
MIME::Lite->send('smtp', $SmtpServer, Timeout=>60);

$msg->send();