Select Code to Download

opendir THIS, "." or die "Error: $!";
my @allimages = grep /\.jpg$/i , readdir THIS;

my @renamedimages = grep /^temp_\d\d+\.jpg$/i, readdir THIS;