#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);	# import most common gateway interface functions
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); #cause all diagnostics to be sent to browser
use Mail::Sendmail;

print header;
print start_html("using Mail::Sendmail");
print "Thank you.  Your email with hyperlink has been sent.\n";

my $recipient = "abc\@aol.com";
my $sender = "def\@aol.com";
my %mail = (
	From	=> $sender,
	To	=> $recipient,
	Subject => "sending you mail"
        );

	$mail{Message} = "Here is the hyperlink you requested.\n";
        $mail{Message} .= ?????

sendmail (%mail);
print end_html;