sub subclasses_of {
  my $class = shift;
  grep { $_->isa($class) && $_ ne $class} Devel::Symdump->rnew->packages;
};