Select Code to Download

#!perl
...

fritz@laptop:~/Documents$ ./3.trans.pl
...
fritz@laptop:~/Documents$ ^C

#!/usr/bin/perl 

...
}
__END__

  use LWP::UserAgent;
...
    unless exists $data->{'elevation'};

  return $data->{'elevation'};

  my $content = $response->decoded_content;
  my $data    = Data::Roundtrip::json2perl($content);