You're not looking at the whole picture. Your $file might well be defined, but uploadInfo($file) seems to be undefined, according to the error you get.

Look at the sub uploadInfo and check what it returns. And modify your program accordingly:

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'};
[download]