The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "substdio.h"
#include "subfd.h"
#include "stralloc.h"
#include "str.h"
#include "scan.h"
#include "dns.h"
#include "dnsdoe.h"
#include "ip.h"
#include "exit.h"

stralloc sa = {0};
struct ip_address ip;

void main(argc,argv)
int argc;
char **argv;
{
 if (!argv[1]) _exit(100);

 ip_scan(argv[1],&ip);

 dns_init(0);
 dnsdoe(dns_ptr(&sa,&ip));
 substdio_putflush(subfdout,sa.s,sa.len);
 substdio_putsflush(subfdout,"\n");
 _exit(0);
}