find(sub {
  push @img, $File::Find::name if /\.(jpe?g|gif|png|bmp)$/i
}, $dir);