#!/usr/bin/perl

use strict ;
use warnings ;
use English ;
use URL::Encode ;


my $data = 'POSTDATA=%7B%22order%22%3A%7B%22id%22%3Anull%2C%22uuid%22%3A%223c632dae-c20e-5447-bcf8-418409f44cc4%22%2C%22resource_path%22%3A%22%2Fv2%2Forders%2F3c632dae-c20e-5447-bcf8-418409f44cc4%22%2C%22metadata%22%3Anull%2C%22created_at%22%3Anull%2C%22status%22%3A%22completed%22%2C%22event%22%3Anull%2C%22total_btc%22%3A%7B%22cents%22%3A100000000.0%2C%22currency_iso%22%3A%22BTC%22%7D%2C%22total_native%22%3A%7B%22cents%22%3A59430.0%2C%22currency_iso%22%3A%22EUR%22%7D%2C%22total_payout%22%3A%7B%22cents%22%3A59430.0%2C%22currency_iso%22%3A%22EUR%22%7D%2C%22custom%22%3A%22123456789%22%2C%22receive_address%22%3A%221GEZK4EuxmYKc22mTEYnZMUSpyjW9a52Hd%22%2C%22button%22%3A%7B%22type%22%3A%22buy_now%22%2C%22subscription%22%3Afalse%2C%22repeat%22%3Anull%2C%22name%22%3A%22Test%20Item%22%2C%22description%22%3Anull%2C%22id%22%3Anull%2C%22uuid%22%3A%22859232d4-b3bc-5240-b1cf-7b62566b6c54%22%2C%22resource_path%22%3A%22%2Fv2%2Fcheckouts%2F859232d4-b3bc-5240-b1cf-7b62566b6c54%22%7D%2C%22transaction%22%3A%7B%22id%22%3A%2257992060c04ee00001899f33%22%2C%22hash%22%3A%224a5e1e4baab89f3a32518a88c31bc87f618f76673e2cc77ab2127b7afdeda33b%22%2C%22confirmations%22%3A0%7D%7D%7D' ;

print "\n\n" ;
print "$data\n" ;
print  URL::Encode::url_decode($data), "\n" ;