file = glob ("*.zip");
foreach $file (@file){
           $zip = new Archive::Zip($file); 
           print "$file\n";
}