view release on metacpan or  search on metacpan

util/update-default.pl  view on Meta::CPAN

    foreach (@{$lines}) {
        print $wfh $_;
    }
    close($wfh);
}

sub retrieve_suffix {
    my $ua = LWP::UserAgent->new(timeout => 10);
    my $response = $ua->get('https://publicsuffix.org/list/public_suffix_list.dat');
    if ($response->is_success()) {
        return $response->decoded_content((charset => 'UTF-8'));
    } else {
        die 'Unable to retrieve suffix: ' . $response->status_line;
    }
}

1;