{ my $debug = 0; if ($debug) { warn "debug set\n"; } }