opendir DIR, DB_DIREC or die "can't open direc ".DB_DIREC.": $!";
  my @dels = grep /^__/, readdir(DIR);
  closedir DIR;
  
  for (@dels) {substr($_, 0, 0) = DB_DIREC.'/'}
  if  (@dels) {unlink @dels}

##</code><code>##

[error] Insecure dependency in unlink while running with -T switch at /usr/local/apache2/plib/Central.pm line 189.