use IO::Handle; # time passes local *LOGFILE; open (LOGFILE, ">> $logFid") or die "Cannot write $logFid: $!"; LOGFILE->autoflush(); *STDERR = *LOGFILE; return (*LOGFILE, $logDate);