use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->content($search_page);

if (!$mech->success())
{
   print "ISite didn't respond";
   exit;
}