$param{location} = shift;
...
my $location = $param{location}
        or Carp::croak("Usage: geocode(location => \$location)");