local *DIR;
  my $FULLNAME;
  opendir(DIR, $PATH) or return;