use Devel::Symdump;
my $obj = Devel::Symdump->rnew();
my @a = $obj->functions();
for my $i (@a) {
    print "$i\n";
}
exit;