use Devel::Symdump;

my @subclasses;
foreach (Devel::Symdump->rnew->packages) {
    push @subclasses, $_ if UNIVERSAL::isa($_, $class);
};