#!/usr/bin/perl
#
# Bondoogle - Perl Version
#
use LWP::Simple;
use CGI;
$query = new CGI;
$str =get('http://www.google.com/');
$str =~ s~~~;
$str =~ s~maxlength=(\d+) name=q size=(\d+) (.*?)value="">~maxlength=$1 size=$2 name=question autocomplete="off" value="" onkeypress="return dochange(event);">~;
$str =~ s~/http.*?imghp~http://ipolygraph.com/google/images.pl~;
print $query->header;
print "\n\n";
print $str;