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


##</code><code>##

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