#!/usr/bin/perl -T
use Geo::Coder::Google;
use CGI::Carp qw (fatalsToBrowser);
use Data::Dumper;
my $ua = LWP::UserAgent->new(agent => "Geo::Coder::Google/0.01");
my $APIKEY='Google_key_for_my_server_ip_addr';

  my $geocoder = Geo::Coder::Google->new(apikey => $APIKEY ,ua => $ua);
  my $location = $geocoder->geocode( location => 'Hollywood and Highland, Los Angeles, CA' );
print Dumper($location);