Select Code to Download

use feature 'say';
use Cwd;
...
for my $element( glob '*/dir3/filename' ) {
   say $element; 
}

my $suffix = '/dir3/filename';
for my $element( glob '*' ) {
   say $element . $suffix; 
}