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__

##</code><code>##

$ perl 1206484.pl | head -20
Can't connect to www.cryptopia.co.nz:443 (certificate verify failed)

SSL connect attempt failed error:14090086:SSL routines:ssl3_get_server_certificate:certificate verify failed at /home/nick/perl5/perlbrew/perls/perl-5.26.1/lib/site_perl/5.26.1/LWP/Protocol/http.pm line 46.

##</code><code>##

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

BEGIN {
    $ENV{'HTTPS_CA_DIR'} = '/etc/ssl/certs';
}

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__

##</code><code>##

$ perl 1206484.pl | head -20
$VAR1 = {
          'Message' => undef,
          'Success' => bless( do{\(my $o = 1)}, 'JSON::PP::Boolean' ),
          'Error' => undef,
          'Data' => [
                      {
                        'MaxWithdraw' => '90000000',
                        'IsTipEnabled' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
                        'DepositConfirmations' => 20,
                        'Status' => 'OK',
                        'MinWithdraw' => '20000',
                        'Name' => '1337',
                        'Algorithm' => 'POS',
                        'Symbol' => '1337',
                        'MinBaseTrade' => '2e-05',
                        'StatusMessage' => undef,
                        'MinTip' => '166.66666666',
                        'ListingStatus' => 'Active',
                        'Id' => 331,
                        'WithdrawFee' => '0.01'