+system("find . -type d -exec rmdir {} \\; 2> /dev/null");
+
+print "Applying security patches...\n";
+for($a=1;$a<10;$a++) {
+ $patchname = "../${basename}pl$a.patch";
+ if(-f $patchname) {
+ print "*pl$a.patch\n";
+ system("patch -s < $patchname") and die;
+ }
+}