use LWP::Simple;
use Mail::Mailer;
$url = 'http://pathhere';

$content = get($url);
print "This script checks if page has been changed.\n";

open(TMPFILE,"<previous_copy.html") or die;
while (<TMPFILE>) { $prev_content .= $_; }
close TMPFILE;

if ($content eq $prev_content) 
{ 
$mailer = Mail::Mailer->new();
$mailer->open({ from => 'fromemail@here',
                To   => 'toemail@here',
				Subject => "test",
		      })
			  or die "can not work: $!\n";
			  print "data\n";
$mailer->close();
}
else
{
print "test\n";
}
 
open(TMPFILE,">previous_copy.html") or die;
print TMPFILE "$content";
close TMPFILE;


##</code><code>##

C:\Perl\bin>webCha2.pl
This script checks if page has been changed.
Died at C:/Perl/site/lib/Mail/Mailer.pm line 270.