#!/usr/bin/perl 
 
use strict; 
use warnings; 
use LWP::Simple; 
use File::CounterFile; 
 
# Store the page in the string $webpage 
my $webpage = get('http://www.yourdomain/test.html'); 
 
# Check if the requested webpage is there 
unless ( $webpage ) { 
    # you might want to create a log entry 
    exit; 
} 
 
# the date is passed to the script as an argument 
# and I really should add some error handling to this part 
my $date = shift; 
 
if ( $webpage =~ m|$date| ) { 
    my $counter = File::CounterFile->new('/fullpathto/alert-count.txt', 0); 
    if ( $counter->value <= 3 ) { 
        $counter->inc; 
         
        # personally, I'd use MIME::Lite to send the email 
        # but this method is common and ok. 
        my $mailprog = '/usr/sbin/sendmail -oeq -t'; 
        my $recipient = 'test@yahoo.net'; 
        my $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);         
    } 
}