package Parent;
sub foo { 1 }

package Child;
@ISA = 'Parent';
sub new { bless {}, shift }
$foo = 10;

package main;
my $pkg = "Child";

print join(", ", grep defined &{ $pkg . "::$_" }, keys %{ $pkg . '::' }), "\n";
print join(", ", grep $pkg->can( $_ ), keys %{ $pkg . '::' }), "\n";