Select Code to Download

my $Msg;

...

print "Error: $Msg\n";

{ "status": "fail", "data": { "error_message": "Cannot withdraw funds 
+without Network Fee of 0.00000000 BTC. Maximum withdrawable balance i
+s 0.00000000 BTC.", "available_balance": "0.00000000", "max_withdrawa
+l_available": "0.00000000", "minimum_balance_needed": "0.00053590", "
+coin_fee": "0.00000000", "estimated_network_fee": "0.00000000", "esti
+mated_min_custom_network_fee": "0.00000000", "estimated_max_custom_ne
+twork_fee": "0.00000000" } }nError:

 
$Msg = $Rep->{data}->{error_message};