open(LOGFILE, ">>$logFid") || die "Can't open log";

    select((select(LOGFILE), $| = 1)[0]);

    # redirect stderr to the log
    open(STDERR, ">>&LOGFILE") || die "Can't redirect STDERR";

    return(*LOGFILE{IO}, $logDate);