while (!eof(IN) ) {
$_ = <IN>;
$DEBUG = 1 if ($_ =~ m/^DEBUG/)