#!/usr/bin/perl
use strict;
use Location::GeoTool;
use LWP::Simple;

# 測地系変換
my ($lat, $lng) = Location::GeoTool->create_coord(
	'35.41.31.32',
	'139.42.12.50',
	'wgs84',
	'gpsone'
)->format_mapion->array;

# LWP でマピオンからデータを取得
my $url = sprintf("http://www.mapion.co.jp/c/f?uc=1&grp=all&nl=%s&el=%s",
	$lat, $lng
);
my $source = LWP::Simple::get($url);