use B::Deparse;
use B::Concise qw(set_style);
sub foo() {
    my $x=1; $x+=1; $x *=2;
    my $z = 0;
}

my $walker = B::Concise::compile('-basic', 'foo', \&foo);
B::Concise::set_style_standard('debug');
B::Concise::walk_output(\my $buf);
$walker->();			# walks and renders into $buf;
print($buf);
my $deparse = B::Deparse->new("-p", "-sC");
foo();
$body = $deparse->coderef2text(\&foo);
print $body, "\n";