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

##</code><code>##

print LOG "======== done =========\n"  unless $nolog;

##</code><code>##

BEGIN {
  my $nolog = 0;
  sub setlog {
    $nolog = shift;
  }
  sub printlog {
    print LOG @_ unless $nolog;
  }
}
setlog 1;
printlog "======== done =========\n";