opendir( DIR, $dir )
        or die( "Error opening: $!" );<br />

my @imagefiles = grep { /\.jpg$|\.gif$|\.png$|\.JPG$|\.bmp$/ } readdir(DIR);