use Mojo::UserAgent;
use Mojo::URL;
use Data::Dumper;

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

my $info = $ua->get('http://ip.jsontest.com/?callback=showMyIP')->res->json;

print Dumper($info);