#!/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";