#!/usr/bin/perl -w

# google:  A quick and dirty way of searching google for the arguments
# given on the command line, hampered only by the fact that it 
# doesn't work

use strict;
my $search="http://www.google.com/search?q=";
foreach my $arg (@ARGV) {
    $search .= $arg . " ";
}
$search =~ s/\s/+/g;
$search =~ s/\"/%22/g;
$search =~ s/\'/%27/g;
$search =~ s/\+$//;
$search .= "&btnG=Google+Search";
$search = "--cookies $search";
exec "lynx $search";