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