Select Code to Download

foreach $count ( sort keys %data ){
# there's a better notation for this but $data{$count}->@
...
    print "\n";
  }             # foreach type_hash
}               # foreach count

while(<DATA>) {
  chomp;
...
                 error => "$error",
                 };
}    # while DATA