tTh/TetaTricks
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

a new little tool

Browse Source
This commit is contained in:
tTh 2024-10-16 21:44:18 +02:00
parent e298d6ca5d
commit e27ac13e68
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/Perl/getip.pl Executable file
View File

@ -0,0 +1,8 @@
#! /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());