#!/usr/bin/perl
#testroms.pl v1.0
#David Mcanulty (dave@mp3.com) 4/4/2002 

@files = `ls -1 *.zip`;
for $file (@files) {
	if (system("zip -T $file")) {
		$bad .= "$file";
		#`rm -f $file`;   #uncomment to delete bad zips
	}
}
print "Following are bad zips: ", $bad;