use strict; use warnings; use 5.020; use feature 'signatures'; no warnings 'experimental::signatures'; sub hello($name, $age) { print "$name\n"; } #### B::Deparse->new->coderef2text(\&hello);