sub debug { print STRERR @_ if $ENV{DEBUG}; }