Help for this page
my $DIR; my $FULLNAME; opendir($DIR, $PATH) or return;
local *DIR; my $FULLNAME; opendir(DIR, $PATH) or return;