B::Deparse->new("-l")->coderef2text( \&func );