#!/usr/bin/perl -w
use strict;
use MIME::Lite;
use MIME::Lite::HTML;

my $url = shift;
my $to  = shift;
 my $mail = new MIME::Lite::HTML(
	From => 'you@yourdomain.com',
	To => $to,
	Subject => 'your URL');

my $MimeMail = $mail->parse($url);
$MimeMail->send_by_smtp('localhost');