perl -ple'chomp;@add=split/\./;$pkd=pack('C4',@add);($name)=(gethostbyaddr $pkd,4);$_.=" > $name"'