use Net::DNS;

my $url = "http://peeron.com/inv";
$url =~ m!https?://([^/]+)!i;

my $res   = Net::DNS::Resolver->new;
my $query = $res->search($1);
  
if ($query) {
    foreach my $rr ($query->answer) {
        next unless $rr->type eq "A";
        print $rr->address, "\n";
    }
} else {
    print "query failed: ", $res->errorstring, "\n";
}