my $mailHTML = new MIME::Lite::HTML 
    From         => 'Someone@anyplace.com',
    # etc.
;
my $MIMEmail = $mailHTML->parse('http://google.com');
$MIMEmail->attach( Type =>'text/html; etc. etc); 
$MIMEmail->send_by_smtp('smtp-server.cfl.rr.com');