my($host,$port) = ($ENV{"http_proxy"} =~ /^(\S+)\:(\d+)$/);