Select Code to Download

opendir DIR, $dir;
while ($file = readdir DIR) {
    if ($file =~ /\.jpg$/) {
...
    }
}
closedir DIR;

use HTML::Template;

$t = HTML::Template->new(filename => 'dropdown.tmpl');
$t->param(IMAGES => \@images);
print "Content-Type: text/html\n\n", $t->output;

<form action="">
<select name="images">
<TMPL_LOOP IMAGES>
<option><TMPL_VAR image></option>
</TMPL_LOOP>
</form>

#!/usr/bin/perl -w
use strict;
use vars qw($my $vars $are $here);