Help for this page

Select Code to Download

Select or download this

for my $zip(sort{ $a <=> $b }(keys(%zips))) {
   seek FILE, $zips{$zip}, 0;
   print NEW <FILE>;
}