#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Sys::HostIP;

my $ip_address   = Sys::HostIP->ip;
my $ip_addresses = Sys::HostIP->ips;
my $interfaces   = Sys::HostIP->interfaces;

print Dumper($ip_address, $ip_addresses, $interfaces, "\n");