use strict;
use CGI;

my $q = new CGI;

sub mimetype {
   my $file = shift;
   my $mimetype = $q->uploadInfo($file)->{'Content-Type'}; # line 804
   return $mimetype;
}