print "\n decimal ", $address{decimal},
      "\n octal   ", join('.',@octets8),
      "\n\n";