use CGI;
my $cgi = new CGI;;
my $formularhtml;

chdir("/opt/htdocs/htmlbase/") or die ('Kann nicht das Verzeichnis wechseln');
my @standardliste = glob("*.html");
die ('keine Dateien gefunden!') if not scalar @standardliste;
print $cgi->popup_menu(-name=>'StandardTemplates', -values=>[@standardliste]);
$formularhtml = $cgi->param('StandardTemplates');