Select Code to Download

opendir(DIR,$dir) or die $!;
my @files = map{$dir.'/'.$_}grep{$_ =~ /\.$extension$/}readdir(DIR);
closedir DIR;

my @files = glob($dir.'/*.'.$extension);