#!/usr/bin/perl 

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Socket;
use Sys::Hostname::FQDN qw(
    asciihostinfo
    gethostinfo
    fqdn    
    short
);

my($name,$aliases,$addrtype,$length,@addrs) = asciihostinfo();

print qq|host info
  short name    : |, short(),   qq|
  long  name    ; |, fqdn(),    qq|
  aliases       : |, $aliases,  qq|
  address type  : |, $addrtype, qq|
  address length: |, $length,   qq|
  IP address(es):
|;

foreach(@addrs) {
    print "\t$_\n";
}