# 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;