#! /usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
# ... usw, z.B:
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print $cgi->start_html(-title => 'Testseite');
print $cgi->h1("Testseite");
print $cgi->end_html();