Select Code to Download

while (<CHANGES>) {
  chomp;
...
    $changes{$file} = [$info];
  }
}

while (<DATA>) {
  chomp;
...
    print "$_\n";
  }
}