#!/usr/local/bin/perl
#
# Ermittelt aus der IP den Rechnernamen:

use Socket;
$host = shift(ARGV) or die "Usage: $0 ip-Number\n";

$_=(gethostbyaddr(inet_aton($host), AF_INET))[0];
print "Host name for $host: $_\n";