opendir(DIR, $dir) or die $!;
my @list = readdir(DIR) or die $!;
closedir(DIR) or die $!;