#!/usr/bin/perl
$file = $ENV{'QUERY_STRING'};
$nextfile = $file + 1;
$server = "192.168.1.182";
$script = $ENV{'SCRIPT_NAME'};
$url = "http://".$server.$script."?".$nextfile;
$pic = sprintf("bad-%d.png", $nextfile);
$picurl = "http://".$server."/gif/".$pic;
print "Content-type: text/html
$picurl Fuzz!
";
print " ";
print " ";
print"\n";
print "";