$title = $mech->title(); # get the new title?
print "$upLoadUrl is titled [$upLoadTitle]\n";
print "resp = [ " . Dumper( $resp ) . "]\n";