Re: Finding the IP of a local box

[borisz]

use IO::Interface::Simple;
my $if1 = IO::Interface::Simple->new('eth0_or_your_if_name');
print $if1->address, "\n";