#!/usr/bin/perl
#
# search - a quick and dirty hack to search google /fast/ using a text
# browser of your choice.
# cider@compulsion.org
#
# choose one of these.
$browser = "w3m";
#$browser = "lynx -cookies";
$|++; # unbuffered io hack
foreach $arg (@ARGV) { $string = $string . "+" . "$arg" } # parsing ha
+ck
$string =~ s/^\+//g; # hack to hack the parsing hack
print "searchstring is = $string\n"; # display the goods
sleep 1; # be lazy
system "$browser 'http://www.google.com/search?num=100&query=$string'"
+; # leave