Select Code to Download

use strict;
use warnings;
use JSON::XS;
...
my $json = get $url;
my $data = decode_json $json;
print $data->{success}, "\n";