use CGI qw(:standard :html3);
opendir THISDIR, "docs/images" or die "failed opening: $!";
 @allfiles = grep !/^\.\.?$/, readdir THISDIR;
closedir THISDIR;
print popup_menu(-name=>'images',
                 -values=>\@allfiles);