use Data::Dump::Streamer;

sub somecode {
    my $x = shift;
    if ($x) {
        print "x ok\n";
    } else {
        print "what do you want?\n";
    }
    return 1;
}

print Dump(\&somecode);
__END__
# result:
$CODE1 = sub {
           my $x = shift @_;
           if ($x) {
             print "x ok\n";
           } else {
             print "what do you want?\n";
           }
           return 1;
         };