@dirs = `ls -d *.OBJ*`; foreach $dir (@dirs) { chop($dir); if (-l $dir) { print "Skipping symbolic link $dir\n"; next; } print "Unzipping $dir/mdbinary.jar\n"; system ("unzip", "-o", "$dir/mdbinary.jar", "-d", "$dir"); system ("rm", "-rf", "$dir/META-INF"); mkdir "$dir/include", 0755; print "Unzipping $dir/mdheader.jar\n"; system ("unzip", "-o", "-aa", "$dir/mdheader.jar", "-d", "$dir/include"); system ("rm", "-rf", "$dir/include/META-INF"); }