sebnow

#!/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(', ',