use Devel::Symdump;
my @packages = Devel::Symdump->rnew->packages;