Help for this page
use strict; use Fcntl qw( LOCK_EX SEEK_SET ); ... seek($FH, SEEK_SET, 0); truncate($FH, 0); ...