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