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

##</code><code>##

Summary of my perl5 (revision 5 version 6 subversion 0) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
Build:  620