#!/usr/bin/perl -w

use strict;
use MIME::Lite;
use MIME::Lite::HTML; 

my $mailHTML = new MIME::Lite::HTML 
	From 		=> 'Someone@anyplace.com',
	To 		=> 'someoneelse@theirplace.com', 
	Subject 	=> 'Search here if you want!', 
	'X-Priority'=> 1,
	'X-MSMail-Priority' => 'High',
;

$mailHTML::MIME::Lite->attach( Type =>'text/html; charset="iso-8859-1"', 
		Data => '<b>Brought to you now!</b>',
	 ); 

my $URL = 'http://google.com';
my $MIMEmail = $mailHTML->parse("$URL");

$MIMEmail->send_by_smtp('smtp-server.cfl.rr.com');