Help for this page
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; }