#!/usr/bin/perl

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

my $url = 'http://www.agriya.com';

  my $mailHTML = new MIME::Lite::HTML(
     From        => 'testmail4all@yahoo.co.in',
     To          => 'testmail4all@yahoo.co.in',
     Subject     => 'Your url: '.$url,
     IncludeType => 'extern');

  my $MIMEmail = $mailHTML->parse($url);
  $MIMEmail->send;