#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $ip= get("https://ipv4v6.lafibre.info/ip.php");
printf("Adresse IP publique : $ip\n");
printf("Protocole IP : IPv%d\n",(index($ip,":")==-1)?4:6);