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