print "$pkg is a " . eval("\$${pkg}::type") . "\n";

##</code><code>##

    no strict 'refs';
    print "$pkg is a " . ${$pkg.'::type'} . "\n";