Global symbol "%dns_check" requires explicit package name at dnscheck.pl line 7.
Global symbol "$key" requires explicit package name at dnscheck.pl line 13.
Global symbol "$value" requires explicit package name at dnscheck.pl line 13.
Global symbol "%dns_check" requires explicit package name at dnscheck.pl line 13.
Global symbol "$key" requires explicit package name at dnscheck.pl line 14.
Global symbol "$key" requires explicit package name at dnscheck.pl line 15.

##</code><code>##

%dns_check = ("address" => "ip");
				


while ( ($key, $value) = each %dns_check) {
	$found_addr = gethostbyname($key) or die "Error $!\n";
	$found_addr = inet_ntoa(inet_aton($key));
	print "IP found is: $found_addr ", "\n";
}