sub nslookup
{
        my ($input, $query_type) = @_;

        # Fork a child process to exec nslookup,
        # and capture its output
        if (open(NSLOOKUP, "-|"))
        {
                # Parent process.  Read output from child.
                my @output = <NSLOOKUP>;
                splice(@output, 0, 3);
                return @output;
        }
        else
        {
                # Child process.  exec() nslookup
                exec("/usr/sbin/nslookup", "-q=$query_type",
                        $input, $nameserver);
        }
}