#!/usr/local/bin/perl

# $Id: resolv_test.pl,v 1.3 92/11/17 23:06:27 marc Exp $

# unshift(@INC,"/mit/marc/perl");

require 'resolv.pl';

(@ARGV == 3) || die "$0: 3 args.\n";

$res'options |= &RES_DEBUG;

$ns = &res_open;

$q = &res_mkquery($ARGV[0],$ARGV[1],$ARGV[2]);

($resp = join("\n---\n",&res_send($ns, $q))) =~ s/$;/\n/go;

print $resp,"\n";