use MIME::Lite
$msg = new MIME::Lite
From=>'email1@hotmail.com',
To=>'email2@hotmail.com',
Subject=>'SUBJECT OF MESSAGE',
Type=>'TEXT',
Data=>"THIS IS THE MESSAGE";
$msg->send("SMTP");