use CGI;

my $q = new CGI;

my $file = $q->param('myfile') 

my $type = $q->uploadInfo($file)->{'Content-Type'};

print "$type\n";