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