( defined($opt{U}) xor defined($opt{H}) )
  || do { print "Only one of 'hostname' or 'uri' must be specified\n";
          pod2usage(1);
        };
defined($opt{H}) && defined($opt{p})
  || do { print "Hostname option requires port option\n";
          pod2usage(1);
        };