#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use Geo::Coder::Bing;
unless ($ENV{BING_MAPS_KEY}) {
die "BING_MAPS_KEY environment variable must be set";
}
my $location = join(' ', @ARGV) || die "Usage: $0 \$location_string";
# Custom useragent identifier.
my $ua = LWP::UserAgent->new(agent => 'My Geocoder');
# Load any proxy settings from environment variables.
$ua->env_proxy;
my $geocoder = Geo::Coder::Bing->new(
key => $ENV{BING_MAPS_KEY},
ua => $ua,
debug => 1,
);
my $result = $geocoder->geocode(location => $location);
local $Data::Dumper::Indent = 1;
print Dumper($result);