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