for(;;) {
  print "Host ? ";
  if( eof STDIN ) {
    print "\n" ;
    exit;
  }
  chop( $_ = <> );
  if( /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/ ) {
    $addr = pack( 'C4', $1, $2, $3, $4 );
    @list = gethostbyaddr( $addr, 2 );
  } else {
    @list = gethostbyname( $_ );
  }
  if( $#list != 4 ) {
    print "Un-known host \n";
    next;
  }
  print "Name $list[0] \n";
  print "Alias $list[1] \n";
  print "Addrtype $list[2] \n";
  print "Length $list[3] \n";
  for( $i=4; $i<=$#list; ++$i ) {
    ($a,$b,$c,$d) = unpack( "C4", $list[$i] );
    print "Address $a.$b.$c.$d \n";
  }
}
End of article 20963 (of 21396) -- what next? [npq] Broken pipe
florian ~ $


   @octets = split ('\.', $address) ;

   $ip_number = pack ("CCCC", @octets[0..3]);

   ($name, $aliases, $type, $len, $addr) = gethostbyaddr ($ip_number, 2) ;

   if ($name) {
      print ($name, "\n") ; }
   else {
      die "no host-name found for $address\n"; }
   }

$IP = '198.41.0.4';
@ip = $IP =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
$addr = pack("C4",@ip);
($name) = gethostbyaddr($addr,2);
print "name = $name\n";