#!/usr/bin/perl
#
# Bondoogle - Perl Version - IMAGE SEARCH
#

use LWP::Simple;
use CGI;

$query = new CGI;


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

$str =~ s~</head>~<script language="JavaScript" src="bondoogle.js"></script><base href="http://www.google.com"/></head>~i;
$str =~ s~maxLength=256 size=[0-9]+ name=q value="">~maxLength=256 size=55 name=question autocomplete="off" value="" onkeypress="return dochange(event);"><input name=q type="hidden" value="">~i;
$str =~ s~onClick="return qs(this);"~~gi;
$str =~ s~/webhp~http://ipolygraph.com/google/google.pl~;


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