Select Code to Download

        tie my @file, 'Tie::File', $File::Find::name or die "Can't
+ tie $File::Find::name $!";
        splice @file, 0, 4;
        untie @file;

        open(F, '<', $File::Find::name) or die "...";
        my $tmp = $File::Find::name . " - new"; # see comment below
...
        close(F);
        rename($tmp, $File::Find::name)
            or warn "unable to replace $File::Find::name: $!\n";