B::Deparse can be your friend:

use B::Deparse;

sub foo {
    my $x = shift;
    print "$x\n";
}

$d = new B::Deparse qw(-p -sC);
print $d->coderef2text(\&foo);
[download]