API 

curl -H "Content-Type: text/plain" --data '{"key":"[your-key-here]","addr":"183qrMGHzMstARRh2rVoRepAd919sGgMHb","callback":"https://mystore.com?invoice_id=123","onNotification":"KEEP", "op":"RECEIVE", "confs": 5}' https://api.blockchain.info/v2/receive/balance_update


##</code><code>##

#!/usr/bin/perl -w


use LWP::UserAgent;
use JSON;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $ua = LWP::UserAgent->new;


my $url = "https://api.blockchain.info/v2/receive/balance_update";
my $json = encode_json {
    key     => 'fdsrr34324234',
    addr    => '183qrMGHzMstARRh2rVoRepAd919sGgMHb',
    callback   => 'https://mystore.com',
	onNotification   => 'DELETE',
	op   => 'RECEIVE',
	confs   => '0',
};

my $req = HTTP::Request->new(POST => $url);
$req->content_type('text/plain');
$req->content($json);

my $response = $ua->request($req);

print "Content-type: text/html\n\n";
if ($response->is_success) {
  print $response->content;
} else {
  print $response->status_line;
}