seek $FH,-100, 1 or die $!;
truncate "file", tell $FH or die $!; # Cannot use $FH in truncate, it's closed