#!/usr/local/bin/perl
while (@adrs=(gethostent())[4]) {for my $value (@adrs) {print join '.',unpack('C4',$value);print "\n";}}