use B::Deparse;
my $deparse = B::Deparse->new( '-p', '-sC' );
my $source  = $deparse->coderef2text( \&some_func );