my $subname = "package::sub";
if (my $coderef = main->can($subname)) {
  $coderef->(@args);
}

##</code><code>##

use strict;
my $coderef = \&$subname;
$coderef->(@args);

##</code><code>##

perldoc strict:
There is one exception to this rule:

                 $bar = \&{'foo'};
                 &$bar;