8 lines
172 B
Perl
8 lines
172 B
Perl
use Data::Printer;
|
|
use Mojo::UserAgent;
|
|
use File::Slurp;
|
|
|
|
my $ua = Mojo::UserAgent->new;
|
|
my $req = $ua->get("http://ip-api.com/json/91.66.59.36")->result->json;
|
|
p $req;
|
|
1; |