Help for this page
if ( -d "$path/$fname" ) {
opendir(DIR, $path); @files = readdir(DIR); ... } closedir(DIR);