Select Code to Download

foreach my $dir (@dirs) {
     @files = glob "*.eap";
...
     foreach $_ (@files) {
     $mkvingestzip->addFile($_);
     }

foreach my $dir (@dirs) {
     print "Now processing dir $dir\n";
...
         print "Adding file $_\n";
         $mkvingestzip->addFile($_);
     }