#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); # in Produktion auskommentieren

my $cgi = CGI->new();
print $cgi->header(-type => 'image/gif');
...