Geocoding in Perl using Google Maps API v3

geocode.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Geo::Coder::Google;

my $geocoder = Geo::Coder::Google->new(apiver => 3);
print(join(', ', qw(Address Lattitude Longitude)) . "\n");
while(my $address = <>) {
    my $location = $geocoder->geocode(location => $address);
    print(join(', ',
            $address,
            $location->{'geometry'}->{'location'}->{'lat'},
            $location->{'geometry'}->{'location'}->{'lng'},
    ) . "\n");
}