sub test
{
   print "Das ist ein Test\n";
}

my $var = "test";
eval(&$var);