Select Code to Download

#!/usr/bin/env perl

...
} else {
    print $l_dns->errorstring, "\n";
}

251.34.92.216.in-addr.arpa. 6883 IN    PTR    perlmonks.org.

#!/usr/bin/env perl

...
    
    return $l_dns_name;
}

Got: PTR  ->  251.34.92.216.in-addr.arpa
Got name perlmonks.org