Help for this page
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); }