#!/usr/bin/perl
#
# script shows all IP addresses for the host
#        excludes localhost 
#
# NOTE: IPv4 only
#
# Linux version
#

open(IF,'/sbin/ip addr show|') or die;
while(<IF>) {
   if(/^\s+inet\s+([\d|\.]+)/) {
     print "$1\n" if $1 ne '127.0.0.1';
   }
}
close IF;
