#!/usr/bin/perl -w # Created by Ben Okopnik on Tue Feb 12 07:03:34 CST 2002 $browser = "/usr/bin/w3m"; exec $browser, "http://www.google.com/advanced_search" unless @ARGV; for ( @ARGV ){ s/.*/%22$&%22/ if y/ /+/; $s .= $s?"+$_":"$_"; } # $ENV{LANG} = "en_US.UTF8"; exec $browser, "http://www.google.com/search?num=30&hl=en&as_qdr=all&q=$s&btnG=Google+Search"