use Data::Dumper;
print qq(file is >>$file<<\n);
my $info = uploadInfo($file);
if (defined $info) {
  print "Got info on $file: ", Dumper($info);
} else {
  print "Uhoh. Couldn't get info on '$file'...\n";
};
my $type = $info->{'Content-Type'};