&split_url($x):("localhost",$port,$zb,$zc,$zd));
#print "par=\"$x\", h=\"$h\", n=\"$n\", p=\"$p\", f=\"$f\", e=\"$e\",
# host=\"$host\", port=\"$port\"\n";
&split_url($x):("localhost",$port,$zb,$zc,$zd));
#print "par=\"$x\", h=\"$h\", n=\"$n\", p=\"$p\", f=\"$f\", e=\"$e\",
# host=\"$host\", port=\"$port\"\n";