http://www.perlmonks.org?node_id=352268

   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";