opendir(ZIPPED, $zipdir)or die "couldn't open $zipdir: $!\n";
my @zd = grep {!-d "$zipdir/$_"}readdir(ZIPPED);
 

opendir(UNZIPPED, $unzipdir)or die "couldn't open $unzipdir: $!\n";
my @uzd = readdir(UNZIPPED);


foreach(@zd) {

    next unless defined $_;
    my $inf = \@zd;
	my $outf = \@uzd;
        #print $_,"\n";
	
    unzip $inf => $outf or die "unzip failed: $UnzipError \n";
	
}