#----------------------------------------------------------------------------#
#we want to die if a system isn't explicitly supported
BEGIN {
  #these are the os's that are supported at this time
  my @Supported  = (
      'openbsd', 
      'freebsd', 
      'linux', 
      'irix', 
      'solaris', 
      'darwin', 
      'MSWin32'
     );

  grep /$^O/, @Supported 
    or die "$^O isn't supported by Sys:IP yet.\n";
}

##</code><code>##

#!/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";
}