use WWW::Mechanize;
use strict;
use warnings;

my $site=shift || die "Site\n";
my @results=();
my $mech=WWW::Mechanize->new();
$mech->get("http://www.google.com/search?q=site%3A$site") || die "GET\n";
my $text=$mech->content;
while($text=~m@<a class=l href=\"(.*?)\">@gi)
{
	push(@results,$1);
}

if($#results==-1)
{
	print "Site is banned with Google , or was not submitted to it!\n";
}
else 
{
	print "$site does NOT appear to be banned ... in fact here are some google searches related to it :\n";
	for my $qq (@results)
	{
		print "$qq\n";
	}
}