Select Code to Download

#!/usr/bin/perl
use strict;
...
opendir (my $gdh, $dir) or die "Unable to open main directory";
say for readdir($gdh);
closedir($gdh);