#Format#closedir (DIRHANDLE);#closedir DIRHANDLE;opendir(DIR, "..") || die "Can't open: $!\n";@parentfiles=readdir(DIR);closedir(DIR);foreach $file ( @parentfiles ){ print "$file\n";}