TetaTricks/code/Perl/getip.pl

9 lines
239 B
Perl
Raw Normal View History

2024-10-17 06:44:18 +11:00
#! /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());