#!/usr/bin/perl
#
# Bondoogle - Perl Version
#
use LWP::Simple;
use CGI;

$query = new CGI;


$str =get('http://www.google.com/');

$str =~ s~</head>~<script language="JavaScript" src="bondoogle.js"></script><base href="http://www.google.com"/></head>~;
$str =~ s~maxlength=(\d+) name=q size=(\d+) (.*?)value="">~maxlength=$1 size=$2 name=question autocomplete="off" value="" onkeypress="return dochange(event);"><input name=q type="hidden" value="">~;
$str =~ s~/http.*?imghp~http://ipolygraph.com/google/images.pl~;

print $query->header;
print "\n\n";
print $str;
 