#!/usr/bin/perl  
 
use CGI::Carp qw(fatalsToBrowser);  
use LWP::UserAgent;  
 
my $ua = new LWP::UserAgent;  
my $req = new HTTP::Request('GET', 'http://www.yourdomain/test.html');  
my $res = $ua->request($req);  
 
 
# Check if the requested webpage is there  
if ($res->is_success) { # Request successful  
   $webpage = $res->content; # Store the page in the string $webpage  
}  
 
@webpage = split(/\n/,$webpage);  
$found = 0;#false 
foreach $line (@webpage) {  
 
   # Below is the text you want to look for (I use the date)  
   # Example looking for 12/20/08  
   if ($line =~ /12\/20\/08/) {  
      $found = 1;#true  
      # Ok, we found a webpage with the above text in the HTML-code.  
      # So the webpage we are watching has not changed  
   }  
}  
 
my $n = 0;  
open (FH, "<", '/fullpathto/alert-count.txt') or die "$!";  
$n = <FH>;  
close FH;  
if ($n < 3) {  
   open (FH, ">", '/fullpathto/alert-count.txt') or die "$!";  
   print FH ++$n;  
   close FH;  
}  
else {  
   exit(0); #<---here your program might exit before sending an email  
}  
#your existing code here  
 
if ($found) {  
   # Write the alert-email  
   $mailprog = '/usr/sbin/sendmail -oeq -t';  
   $recipient = 'test@yahoo.net';  
   $sender = 'test@gmail.com';  
   open (MAIL, "|$mailprog");  
   print MAIL "To: $recipient\n";  
   print MAIL "From: $sender\n";  
   print MAIL "Subject: Schedule Page Updated or down\n\n";  
   print MAIL "NEW Basketball schedule may be posted.";  
   print MAIL "Must Call ASAP.";  
   close (MAIL);  
}  
 
exit;