Select Code to Download

use Cwd;
...
my $dir = getcwd;
my @images = map { "$dir/$_" } readdir(DIR);

@images = grep {
    -f && # only allow files, not directories
    /\.(png|gif|jpe?g|.....)$/i
} map { ... } readdir(DIR);