use MIME::Lite;
   my $msg = new MIME::Lite
         To   => 'anyone@somewhere.com',
         From => 'someone_else@where.com',
         Subject => 'Text Subject',
         Type => 'TEXT',
         Data => 'body of the text';
    MIME::Lite->send('smtp', "some_valid_smtp_server_name", Timeout=>60 Debug=>1);
    $msg->send;
}