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 som
+e google searches related to it :\n";
    for my $qq (@results)
    {
        print "$qq\n";
    }
}