Use google search engine from command line.

#!/usr/bin/perl -w

my $browser = "/usr/bin/mozilla-firefox";
exec $browser, "http://www.google.com/advanced_search" unless @ARGV;

for ( @ARGV )
{
s/.*/%22$&%22/ if y/ /+/; $s .= $s?"+$_":"$_";
}

exec $browser, "http://www.google.com/search?num=30&hl=en&as_qdr=all&q=$s&btnG=Google+Search"