% perl -MNet::Google -wle'open(KEY, "<", ".googlekey");chomp($k = );close KEY;$g = Net::Google->new(key=>$k);print $g->spelling(phrase=>"nu yirk citee")->suggest()' nu york city