seek $fh, 0, 0;
truncate $fh;