Sure: Net::DNS::Async

Also, here's the relevant code snippet from the module:

sub add {
    my ($self, $params, @query) = @_; 
    my ($callback, @ns);

    if (ref($params) eq 'HASH') {
        @query = @{ $params->{Query} } if exists $params->{Query};
        $callback = $params->{Callback};
        @ns = @{ $params->{Nameservers} } if exists $params->{Nameserv
+ers};
    }
    else {
        $callback = $params;
    }

    (...)
}
[download]