#!/usr/local/bin/perl

# $Id: dns.pl,v 1.2 1992/11/14 00:46:16 marc Exp $

# unshift(@INC,"/afs/athena.mit.edu/user/m/a/marc/perl");

require 'resolv.pl';

$name = shift(@ARGV) || die &usage;
$type = shift(@ARGV) || die &usage;
$class = shift(@ARGV) || "IN";

$ns = &res_open;
$q = &res_mkquery($name, $type, $class);

@ans = &res_send($ns, $q);

if ($ans[3]) {
    die "DNS Error: $ans[3]\n";
} else {
    print join("\n",@ans[$ans[6]..$ans[6]+$ans[7]-1]),"\n";
}