Select Code to Download

use Data::Dumper;
my @files2 = readdir(DIR2);
print Dumper(\@files2);

use strict;
use warnings;
...
$VAR1 = [
          'file3'
        ];