use B::Deparse;
sub dumpsub {
    print "sub ",B::Deparse->new->coderef2text(shift),"\n"
}
dumpsub \&dumpsub;