Perlで定義されている関数名を全て取得する方法

Perlで定義されている関数名を全て取得する方法はあるのでしょうか？
ソースを見ればわかりますが、取得する方法があれば教えてください。

001.pl
sub aaa{
print "a";
}
002.pl
sub bbb{
print "b";
}

No.1 ベストアンサー 回答者： zebedeer 回答日時： 2004/09/19 19:30

$ perl -MData::Dumper -e 'print Dumper \%{main::}'

こんな感じ。