open(STDERR, ">&STDOUT") if $redirect_stderr;
   exec("/usr/bin/nslookup", "-q=$query_type",
        $input, $nameserver) or die "exec: $!";

##</code><code>##

print "Without:\n";
print "| $_\n" foreach nslookup('test', 'A');

print "\n";
$redirect_stderr++;

print "With:\n";
print "| $_\n" foreach nslookup('test', 'A');

##</code><code>##

Without:
Note:  nslookup is deprecated and may be removed from future releases.
Consider using the `dig' or `host' programs instead.  Run nslookup with
the `-sil[ent]' option to prevent this message from appearing.
| *** Invalid option: q=A
| Server:               ns.intranet
| Address:      10.0.0.1#53
|
| ** server can't find test: NXDOMAIN

With:
| Note:  nslookup is deprecated and may be removed from future releases.
| Consider using the `dig' or `host' programs instead.  Run nslookup with
| the `-sil[ent]' option to prevent this message from appearing.
| *** Invalid option: q=A
| Server:               ns.intranet
| Address:      10.0.0.1#53
|
| ** server can't find test: NXDOMAIN