#!/usr/bin/perl

#... code ...

*mytest = sub {
    print "hallo";
}