Select Code to Download

$location->{address_components}[0]{types}[0]
   = "street_number"; #d3
...
$location->{geometry}{location_type}
 = "ROOFTOP"; #d1

#!/usr/bin/perl --
use strict;
use warnings;
...


__END__