dot/local/bin/google


1
2
3
4
5

#!/usr/bin/perl -w

$_ = join ' ', map { m/ / ? qq<"$_"> : $_ } @ARGV;
s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge;
exec qw(w3m), "http://www.google.com/search?q=$_"