#!/usr/bin/perl

use    strict;
use     warnings;                                            

test();

sub    test                    {
        print "einfach mal ein Test";
}