my $file = $cgi->param('file');

select((select($file), $|=1)[0]);