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

foreach(@zd) {

	my $inf = $_;
	my $outf =  $uzd[@uzd];
	
       # print $_,"\n";
	
    
	unzip $inf => $outf or die "unzip failed: $UnzipError\n";
	
}