use CGI::Carp qw( fatalsToBrowser );

....

$file = $q->param('file');

....

open FILE, $file;