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