use MIME::Lite; my $msg=MIME::Lite->new(From=>"xx", To=>'xxx@xxx.com', Subject=>'Test MIME', Data=>"This is the test message"); $msg->send;