my %opts;
getopts "hH",\%opts or die "getopts()";
-@ARGV==1 && $ARGV[0]=~m#^http://([^/]+)(:\d+)?(/.*)$#
+@ARGV==1 && $ARGV[0]=~m#^http://([^/:]+)(?::(\d+))?(/.*)$#
or die "Syntax: $0 [-hH] http://hostname/pathname";
my($host,$port,$path)=($1,$2,$3);
defined $port or $port=DEFAULT_PORT;