$ 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'