$dir .= '*';
my @list = glob($dir);

##</code><code>##

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

##</code><code>##

------------
:Wq
Not an editor command: Wq