Select Code to Download

use JSON;

...
    warn "json decode error: $@\n";
}
my $lat = $unjson->{"location"}{"lat"};

my $ok = eval {
    foo();
...
        warn "foo() fsck'd up, with unexpected err: $@\n";
    }
}