my $error = $cgi->error();
if ($error) {
    die $error;
}

##</code><code>##

my $file = $cgi->param('upload');
my $content_type = $cgi->uploadInfo($file)->{'Content-Type'};