use strict;
use warnings;
my $sub=sub {print "Hallo Welt!"};
&{$sub}