#!/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";