$ perl -l
use Net::IP;
my $ip = new Net::IP("FD02:3539:700B:1::FE");
print $ip->ip();
^D
fd02:3539:700b:0001:0000:0000:0000:00fe