open ( LOG, $log ) || warn "  Couldn't open log\n" if ($debug);