#!/usr/bin/perl
use GD;
if ($ENV{QUERY_STRING} eq "img") {
print "Content-type: image/png\n\n";
open (PNG,"over.png") || die;
$im = newFromPng GD::Image(\*PNG) || die;
close PNG;
binmode STDOUT;
print $im->png;
} else {
print <<HTML;
Content-type: text/html
<img src="$ENV{REQUEST_URI}?img"><br>
ads
HTML
}