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