#Include the WWW::Mechanize module
use OLE;
use LWP;
use WWW::Mechanize;
use Mail::Sender;

$url="http://someservername/TESTLOG.html";
# Create a new instance of WWW::Mechanize
# enabling autoheck checks each request to ensure it was successful,
# producing an error if not.
my $mechanize = WWW::Mechanize->new(autocheck => 1);
 
# Retrieve the page



$mechanize->get($url);
 
# Assign the page content to $page
my $page = $mechanize->content;
my $ipcount=0;

my $match_count=()=($page=~/Memphis/g);{

print "Logins for Memphis $match_count\t";

}
my $actris_count=()=($page=~/ACTRIS/g);{

print "Logins for Austin $actris_count\t";
}

my $sef_count=()=($page=~/South East Florida/g);{
print "Logins for SEF $sef_count\t";
}