use Geo::Coder::US;

$test = @ARGV[0];
Geo::Coder::US->set_db("geocoder.db");
my ($coords) = Geo::Coder::US->geocode($test);
print "$coords->{lat},$coords->{long}";