#!/usr/bin/perl
use SOAP::Lite;
use strict;

my $key='00000000000000000000000000';
my $fh = "wordList.txt";

open FH, "$fh" or die "Can't open: $!";
open OUTFILE, ">goodWords.txt";

foreach (<FH>) {
	chomp;
	print $_;
	my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl");
	my $result = $googleSearch -> doGoogleSearch($key, $_, 0, 10, "false", "", "false", "lang_es", "latin1", "latin1");
	my $hitCount = qq{$result->{'estimatedTotalResultsCount'}};
	print " returns about $hitCount hits.\n";
	if ($hitCount > 200) {
		print OUTFILE "$_ returns about	$hitCount hits.\n";
	}
}

close OUTFILE;
close FH;