my ($ora) = Geo::Coder::US->geocode("$office_address, $office_address_city, $office_address_state, $search_zip_code" );

##</code><code>##

Geo::Coder::US -> http://search.cpan.org/src/SDERLE/Geo-Coder-US-1.00/US.pm

Geo::StreetAddress::US -> http://search.cpan.org/src/SDERLE/Geo-StreetAddress-US-0.99/US.pm

DB_File -> http://search.cpan.org/src/PMQS/DB_File-1.816/DB_File.pm