perl - public ip 알아내기

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

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

$ perl ip.pl
14.47.186.209

참고

• http://search.cpan.org/~jmehnle/Net-Address-IP-Local-0.1.2/lib/Net/Address/IP/Local.pm