Select Code to Download

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

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

BEGIN {
  my $nolog = 0;
...
}
setlog 1;
printlog "======== done =========\n";