#!/usr/bin/perl -T  

use CGI::Carp qw(fatalsToBrowser);
use strict; # das möchte ich haben
my $conttype = "Content-type: text/html\n\n";

&eins;
&zwei;

sub eins{
	my $text = "This is a test!";
}

sub zwei{
	print $conttype;
	print $text;
}