opendir (NEW, "new/") or die "unable to open directory new $!";

my @dir_files = readdir(NEW);
print "@dir_files\n";