Blockchain Wallet Service API

Create Wallet API
Create blockchain wallets programmatically
The create_wallet method can be used to create a new blockchain.info bitcoin wallet.
URL:
http://localhost:3000/api/v2/create
Method:
POST or GET
$password - The password for the new wallet. Must be at least 10 characters in length.
$api_code - An API code with create wallets permission.
$priv - A private key to add to the wallet (Wallet import format preferred). (Optional)
$label - A label to set for the first address in the wallet. Alphanumeric only. (Optional)
$email - An email to associate with the new wallet i.e. the email address of the user you are creating this wallet on behalf of. (Optional)
Please create an API code here including permissions to "Create Wallets".
Response:
200 OK, application/json
{
  "guid": "4b8cd8e9-9480-44cc-b7f2-527e98ee3287",
  "address": "12AaMuRnzw6vW6s2KPRAGeX53meTf8JbZS",
  "label": "Main address"
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use JSON::XS;

my $password = "wa111110993";
my $api_code = "asdsadas";
my $url = 'http://127.0.0.1:3000/api/v2/create';

my $ua       = LWP::UserAgent->new();
my $response = $ua->post( $url, { 'password' => $password,  'api_code' => $api_code,});

my $Rep = JSON::XS->new->decode ($response->content);
my $Guid = $Rep->{guid};
my $Address = $Rep->{address};

print "Guid is: $Guid\n";
print "Address is: $Address\n";