use Path::Tiny qw/ path /;
my @img  = path( $dir )->children( qr/\.(jpe?g|gif|png|bmp)/i );