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