use strict; use warnings;
use HTTP::Tiny;
use JSON;
use Data::Dumper;

my $url = "https://www.cryptopia.co.nz/api/GetCurrencies";
my $res = HTTP::Tiny->new->get( $url );
my $decoded_json = decode_json( $res->{'content'} );

print Dumper( $decoded_json );

__END__