use strict; use warnings;
use Socket;

# Hole IP von Kommandozeile
my $ip = shift // die "IP fehlt!";

my $hostname = gethostbyaddr(inet_aton($ip), AF_INET);
print $hostname;