use MIME::Lite;
                                                                                
my $msg = MIME::Lite->new(
                           From     =>'jns@localhost',
                           To       =>'jonathan@localhost',
                           Subject  =>'Test',
                           Type     =>'text/html',
                           Data     =>'<h1>THis is a test</h1>');
$msg->send();