Select Code to Download

my $hostname =
 gethostbyaddr(inet_aton($data[$ip_address_pos]), AF_INET)
         or "Can't resolve $data[$ip_address_pos]: $!\n";

use Data::Validate::Domain qw(is_hostname);

...
    splice @data, ($ip_address_pos), 1, $address;
}