use Geo::Coder::US;
Geo::Coder::US->set_db( "geocoder.db" );
my ($ora) = Geo::Coder::US->geocode(
                    "1005 Gravenstein Hwy N, 95472" );
print "O'Reilly is located at $ora->{lat} degrees north, "
                             "$ora->{long} degrees east.\n";