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

my $cgi = CGI->new();
print $cgi->header(), $cgi->start_html('Testpage');
print $cgi->h1('Testpage');
print $cgi->end_html();