#!/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 hack
$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