Select Code to Download

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

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

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