sub StartInternet {
	$Internet = Win32::Internet->new
}

sub Get {
	my ($url, $req) = @_;
	my $http;
	my $result = $Internet->HTTP($http, $url, 'anonymous', '');
	if ($result) {
		my ($status, $header, $content) = $http->Request("/$req");
		$http->Close;
		return ($header, $content)
	} else {
		return undef
	}
}

##</code><code>##

$url = 'terraserver.microsoft.com';
$req = 'tile/tile.asp?T=1&S=13&X=321&Y=3329&Z=10'

##</code><code>##

terraserver-usa.com/tile.ashx?T=1&S=13&X=321&Y=3329&Z=10