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