print "Starting DNS lookup on $ip ...";
		my $h=gethost($ip);
                   print "here?";   ###<-- This is printed
		$ripname{$ip}=$h->name;
		print "Or here?";   ### <-- This is never printed

		if (length($ripname{$ip})<3) {$ripname{$ip}='FAILED'};
		print "done, hostname for $ip is $ripname{$ip} !\n";    ####<--- Neither is this