Select Code to Download

use Benchmark qw(:all);
use File::Slurp;
...
        append_file( $file2, "$_\n" );
    }
}

        Rate File2 File1
File2 3.24/s    --   -8%
File1 3.51/s    8%    --