#!/usr/bin/perl
use B::Concise;
sub testit ()
{
    my $walker = B::Concise::compile('-basic', '-src', 'testit');
    B::Concise::set_style_standard('debug');
    B::Concise::walk_output(\my $buf);
    $walker->();			# walks and renders into $buf;
    print $buf, "\n";
    printf "COP is 0%x\n", $DB::COP;

}

testit();