1	foreach $key (keys %delete_list) {
     2	
     3	                  my $dir = $build_photo_path;
     4	                  my (@files) = ();
     5	                  &header;
     6	          opendir(DIR, $dir) || &err("can't open : $!");          
     7	                  @files = grep { /$key\.*/i } readdir(DIR);
     8	                  closedir(DIR);
     9	
    10	                  if ($#files > -1) {
    11	              foreach (@files) {
    12	                unlink("$dir/$_") || &err("can't delete $_ : $!");
    13	                          }
    14	              }
    15	}