Select Code to Download

use Tie::File;

...
  or die "can't update $file: $!";

splice(@lines, 1, 1);

splice(@lines, 0, 1);

shift(@lines);