my $package = "MyPackage";
{
  no strict 'refs';
  for my $sym ( keys %{ "${package}::" } ) {
    print "$sym\n";
  }
}