seek HANDLE,-(length $record),SEEK_CUR;