while (<IN>) {
    $DEBUG = 1 if /^DEBUG/;