1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use IO::Async::Loop;
7use IO::Async::Resolver::DNS;
8
9my $loop = IO::Async::Loop->new;
10my $resolver = $loop->resolver;
11
12$resolver->res_query(
13   dname => $ARGV[0],
14   type  => "PTR",
15)->on_done( sub {
16   my ( $pkt, @names ) = @_;
17
18   foreach my $name ( @names ) {
19      print "$name\n";
20   }
21})->get;
22