use Socket;
my $hostname = gethostbyaddr(inet_aton($ipaddr),AF_INET);