Select Code to Download

opendir HTMLDIR, $directory_name or die "Can't open $directory_name: $
+!\n";
while (readdir (HTMLDIR)) {
    push @images, $_) if /\.(png|jpg|gif|tiff)/;
}

foreach ((readdir(HTMLDIR)) {
# stuff
}

my @files = grep { /png|gif|jpg|tiff$/ } (readdir(DIR));