google () {
u=`perl -MURI::Escape -wle 'print "http://google.com/search?q=".
uri_escape(join " ", @ARGV)' $@`
w3m -no-mouse -F $u
}
scpan () {
u=`perl -MURI::Escape -wle 'print "http://search.cpan.org/search?query=".
uri_escape(join " ", @ARGV) ."&mode=module&n=100"' $@`
w3m -no-mouse -F $u
}
