my $debug = $ENV{DEBUG} || 0;