sub foo {
  print "Foo!\n";
}

my $pkg = "main";
my $sub = "foo";

my $cr = $pkg->can($sub)
  or die "Can't find '$sub' in package '$pkg'\n";

$cr->();