Help for this page
use File::Spec::Functions; opendir (my $dh, $dir); ... push @img, $File::Find::name if /\.(jpe?g|gif|png|bmp)$/i && $dir eq $File::Find::dir }, $dir);
find(sub { push @img, $File::Find::name if /\.(jpe?g|gif|png|bmp)$/i }, $dir);