Select Code to Download

foreach my $file (@file_list)
{
...
foreach my $file (@file_list){
   code here...
}

#!/usr/bin/perl -w
use strict;
...
   return unless (/\.jpg$/); # name ends in .jpg
   push (@jpg_files, $File::Find::name);
}