root>$ lsattr -El en0|grep "Internet Address" 
netaddr   10.1.4.43   Internet Address   True

##</code><code>##

my $ipadd = `lsattr -El en0|grep "Internet Address"`;
chomp($ipadd);
if ($ipadd =~ m/^([0-255].[0-255].[0-255].[0-255])+/) {
$ipaddress = $1;
}