@edittypes = qw(.htm .html .txt);

##</code><code>##

sub edit {
$file = $q->param('select');
              foreach $line (@edittypes) {
                   if ($file !~ /$line/) {
                        &inerror("You can only edit @edittypes");
                   }
              }
}