#!/usr/bin/perl -w
use strict;
use warnings;

sub testemaldiesub {
	print "Hallo Welt\n";
}
testemaldiesub;