sub verb { 1 }
my $x = 1;
print "debug ".$x++."\n" if verb;