use warnings;
use Net::Address::IP::Local;

print my $address = Net::Address::IP::Local->public;