#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use WebService::IPRental;
use Data::Dumper;
my $ipr = WebService::IPRental->new(
APIkey => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx',
APIpass => 'xxxxxxxxxxxxxxxxx',
Username => 'xxx@gmail.com',
Password => 'xxx'
);
my $resp = $ipr->doIpLease();
print Dumper( \$resp );
1;