Select Code to Download

#!/usr/bin/perl

use strict;
...
zip \@dirs => "$outfile", BinModeIn => 0 or die "$!";

print "Done\n";