Help for this page
my @images = map {glob} ( '*.gif', '*.jpg', '*.jpeg' );
my @files = grep { -f } glob '*'; # warning! some elements in @files might not be images.