use Sys::HostIP;
use Data::Dumper;

my $hostip     = Sys::HostIP->new;
#my $ips        = $hostip->ips;
my $interfaces = $hostip->interfaces;

print Dumper $interfaces;