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