Section 5: System Administration

This typical little utility is from Usenet:

        Date: Wed, 24 Oct 2001 14:45:08 GMT
        Subject: matching
        Message-ID: <3bd6d2ec.77079640@news>

        foreach $key (keys %delete_list) {

                  my $dir = $build_photo_path;
                  my (@files) = ();
                  &header;
          opendir(DIR, $dir) || &err("can't open : $!");          
                  @files = grep { /$key\.*/i } readdir(DIR);
                  closedir(DIR);

                  if ($#files > -1) {
              foreach (@files) {
                unlink("$dir/$_") || &err("can't delete $_ : $!");
                          }
              }
        }

It's in delfiles1.pl in your notes