#!/usr/bin/perl -w
#-*-perl-*-

use strict;
use Sys::IP;
use diagnostics;

my $ip = ip();
my @ips = ips();

print $ip , "\n";

foreach ( @ips ) {
  print $_ , "\n";
}