#!/usr/bin/perl -w

use warnings;
use strict;
print "Content-type: text/html;CHARSET=iso-8859-1\n\n";
END { 
print "TEIL END ";
}

print "Hallo ";

BEGIN {
print "Teil BEGIN ";
}