Select Code to Download

#!/usr/bin/perl -l

...
    die "Cannot getnameinfo - $err" if $err;
    print "$ipaddr";
}

#!/usr/bin/perl

...
else {
    warn "Query failed: ", $res->errorstring;
}