Select Code to Download

for my $key ( keys %$data ) {
  print "key = $key\n";  #debug
...
  print "\n $zip - $descri - $extra_name\n";

}