#! /usr/bin/perl
use strict;
use LWP::UserAgent ();
my $ua = LWP::UserAgent->new(agent => "curl");
my $url = "https://ifconfig.io";
my $req = HTTP::Request->new('GET' =>  $url);
my $res = $ua->simple_request($req);
print($res->content());