open my $fh, "+<", $filename or die $!;
truncate $fh,$pos or die $!;