Help for this page
#!/usr/bin/perl use strict; ... zip \@dirs => "$outfile", BinModeIn => 0 or die "$!"; print "Done\n";