$file = $q->param('file');
die "horribly" if $file !~ /^[a-z]+\z/;
open FILE, $file;

##</code><code>##

$file = $q->param('file');
($file) = $file =~ /^([a-z]+)\z/;
open FILE, $file;