#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use GD;

print "Content-type: image/x-png\n\n";

# create a new image
$im = new GD::Image(100,100);
# der Rest wie gehabt