#!/usr/bin/perl
use Geo::Coder::Google;
use Data::Dumper;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => "Geo::Coder::Google/0.01");
$ua->proxy('http', 'http://myproxy.com.au:80');

my $geocoder = Geo::Coder::Google->new(apikey => '{my api key}', ua => $ua);
$geocoder->ua->agent('Mozilla/5.0');

  my $location = $geocoder->geocode( location => 'Hollywood and Highland, Los Angeles, CA' );
print Dumper $location;