package A;

sub b {
    print "called A::b\n";
}

package main;

my $pack='A';
{
 no strict 'refs';
 &{"${pack}::b"}();
}