$emaildata="<h1>Hello World</h1>";
my $msg = MIME::Lite->new (
Subject=>"Hello World",
From=>'youremail@yourdomain',
To=>'destinationemailid',
Type=>'text/html',
Data=>$emaildata,
);
MIME::Lite->send('smtp',"localhost:25",Debug=>0,Timeout=>60);
$msg->send();