use WWW::Search::Googlism;
$query = $ARGV[0] ? $ARGV[0] : die;
$search = new WWW::Search('Googlism');
$search->native_query(
                    WWW::Search::escape_query($query),
                      { type => ( $ARGV[1] ? $ARGV[1] : 'who') }
                      );
while (my $result = $search->next_result()) {
    $title = $result->title;
    print "$title\n";
}