#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new(); # neues Objekt von CGI
print $cgi->header(-type => 'text/html'); # Header ausgeben
print $cgi->h1('Hello World'); # "Hello World" als Überschrift ausgeben
print 'Test'; # "Test" ausgeben