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);

##</code><code>##

$VAR1 = {
          'Units' => 'Feet',
          'Data_Source' => '3DEP 1/3 arc-second',
          'y' => '38.9120516895847',
          'Elevation' => '96.95',
          'x' => '-77.0335523650193'
        };
$VAR1 = {
          'y' => '38.1737884469946',
          'x' => '15.8364278983988',
          'Elevation' => '-1000000',
          'Units' => 'Feet',
          'Data_Source' => '3DEP 1/3 arc-second'
        };