# Close the log file and save information for next log check.
    # Remember where (and when) we stopped reading for next time.
    $FTPTrkLastReadPos  = tell(FTPLOG);
    $FTPTrkLastReadTime = time;
    close(FTPLOG);

##</code><code>##

    # Get current characteristics of the log file
    my ($filesize,$modified,$created) = (stat(_))[7,9,10];
    $FTPTrkLastReadPos = 0  if( $filesize < $FTPTrkLastReadPos );

    # Process any and all new entries
    seek FTPLOG, $FTPTrkLastReadPos, 0;