my $IFS=$/;  # Save that please... 
  $/='';       # We're gonna make one big input... 
  open(PIPE,"$nslookup -type=any $domain 2>&1 |") 
    or carp "Cannot run $nslookup ! " . $! ; 
  my @check=<PIPE>; #slurp! 
  close PIPE;       # gulp! 
  $/=$IFS;          # put that back. 
 
  return 3 if grep /Non-existent/,@check;

##</code><code>##

  `$nslookup -type=any $domain 2>&1` =~ /Non-existent/ and return 3;