if ($createlog || $logfile) { $verbose = 1; ## if createlog specified but no logfile name given then ## create default logfile name if (!$logfile) { $logfile = "./logs/ZIPsync_$day.log"; ## Make Logs folder eval { mkpath("./logs") }; if (-e $logfile && (time - (stat $logfile)->mtime) > 86400) { unlink $logfile; open (LOGFILE, ">$logfile") or dying($!); } else { open (LOGFILE, ">>$logfile") or dying($!); } } else { open (LOGFILE, ">$logfile") or dying($!); } } ## output to STDOUT if $verbose mode seleted but no output log if ($verbose && !$createlog && !$logfile) { open (LOGFILE, ">&1") or dying($!); }