my $deparse = B::Deparse->new;
 print dumper $deparse->coderef2text($func);