opendir DIR, $dir;
while ($file = readdir DIR) {
	if ($file =~ /\.jpg$/) {
		push @images, { 'image' => $file };
	}
}
closedir DIR;

##</code><code>##

use HTML::Template;

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

##</code><code>##

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

##</code><code>##

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