use strict;
use warnings;

use Carp;
BEGIN {$Carp::Verbose=0};

$\="\n";
use constant DBG => 1;
sub dbout {
    $Carp::Verbose=0;
    carp "@_" if DBG;
}

dbout 1..3;
__END__;