use  Geo::WebService::Elevation::USGS;
use Data::Dumper;
my $eq =  Geo::WebService::Elevation::USGS->new(
	timeout => 60,
);
# white house
my $x = $eq->elevation(38.91205168958467, -77.03355236501928);
print Dumper($x);

# scilla sicily
$x = $eq->elevation(38.17378844699463, 15.83642789839883);
print Dumper($x);