opendir(TEMP, 'subdir/') || die "Cannot open 'subdir': $!";
@FILES = readdir TEMP;
print join(", ", @FILES);
closedir(TEMP);