sub foo::test { print "test" }
my $x = "foo";
no strict;
&{ $x . "::test"}