my $info = uploadInfo($fname);
    print "uploadInfo:<br>";
    map {print "  $_: " . $info->{$_} . "<br>\n" } sort keys %$info;