Select Code to Download

@list = (@list, bsd_glob ("$DIR/*XYZ", GLOB_QUOTE )); ...
push @list, bsd_glob ("$DIR/*XYZ", GLOB_QUOTE ));

use strict;
use warnings;
...
    my $size = @list1;
    print "List size = $size, elapsed = $elapsed second(s)\n";
}