Select Code to Download

my @filenames = glob '/tmp/dir1/d1*';

...
my $var1 = $files_and_sizes[0][0];

print $var1;