my $debug;
BEGIN { GetOptions('debug|d' => \$debug) or die }
use constant DEBUG => $ENV{DEBUG} || $debug;