#!/usr/bin/perl

#... code ...

sub mytest {
    print "hallo";
}