use strict;
use warnings;

package My;

my $pkg_sub;
BEGIN
{
    $pkg_sub = __PACKAGE__ . '::A';
}

# some methods


package $pkg_sub; # My::A

# some methods


1;