my $pos = tell F;
    truncate F, 1 +$pos if $pos > 1;