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