Select Code to Download

use Modern::Perl;
use IO::Compress::Zip qw(zip $ZipError) ;
...
    do { print "Zip $ip -> $_" }
      for @{ $files{$ip} };
}