my $msg = MIME::Lite->new(  
                 To      => 'someuser@aol.com',  
                 From    => 'admin@server.com',  
                 Subject =>'some subject',  
                 Type    =>'multipart/related'  
                 );  
    $msg->attach(Type => 'text/html',  
                 Data => qq{ 

                 (html goes here) 

                 }  
                 );  
    $msg->send();