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

or

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

To zip files you can use Archive::Zip or Archive::Tar...