Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

The script I use most...

by zude (Scribe)
on May 11, 2004 at 01:25 UTC ( [id://352268] : perlcraft . print w/replies, xml ) Need Help??

   1: #!/usr/bin/perl
   2: #hint, call it "google", try "google perl monks"
   3: #@browser=qw(/usr/bin/lynx -nopause -accept_all_cookies);
   4: @browser=qw(/usr/local/bin/elinks);
   5: $q=join'',map{sprintf"%%%.2X",$_}unpack"C*","@ARGV"and$q="&q=$q";
   6: exec@browser,"http://www.google.com/search?num=100$q";