#!/usr/bin/perl

@target = ("*.htm.bak",
 #          "PUSAGE.HTM",
 #          "TOTAL.HTM",
 #          "TOTAL.TXT",
 #          "P19*.HTM",
 #          "errors.htm",
 #          "P19*.TXT",
           "*.HTM.bak");           # target files to process
$verbose = 0;

foreach $target (@target) {
   # now run through all subdirectories looking for files
   open(FIND, "find . -name \"$target\" -print |") || die "Couldn't run find: $!\n";
   while ($filename = <FIND>)
   {
      chop($filename);
      unlink($filename);
      print "deleting $filename\n" if $verbose;
   }
}