Select Code to Download

my $dir = '.'
my @list = glob($dir . '/*'); # <- amended per merlyn's response

my $dir = '.';
opendir(my $dh, $dir) or die "Could not open $dir because $!\n;
@list = readdir($dh);

closedir($dh);

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

my $dir = '.';
opendir(my $dh, $dir) or die "Could not open $dir because $!\n;
...
   # do stuff to $_
}
closedir($dh);