sub printlog {
  print LOG @_ unless $nolog;
}
printlog "======== done =========\n";