use strict; use warnings;
use LWP::UserAgent;
use JSON;
use Data::Dumper;

my $url = "https://www.cryptopia.co.nz/api/GetCurrencies";
my $res = LWP::UserAgent->new->get( $url );
die $res->content if not $res->is_success;
print Dumper decode_json $res->decoded_content;
__END__