view release on metacpan or  search on metacpan

bin/postdanmark.pl  view on Meta::CPAN

#https://logiclab.jira.com/wiki/display/BDKPST/Notes
#my $url = 'http://www.postdanmark.dk/da/documents/lister/postnummerfil_excel.xls';
my $url
    = 'http://www.postdanmark.dk/da/Documents/Lister/postnummerfil-excel.xls';

my $ua = LWP::UserAgent->new;

my $response = $ua->get($url);

if ( $response->is_success ) {
    my $content = $response->decoded_content;

    my $ctx = Digest::MD5->new;

    $ctx->add($content);
    my $digest = $ctx->hexdigest;

    if ( $digest ne DIGEST ) {
        die "Calculated digest: $digest differs from known digest: " . DIGEST
            . " - check URL: $url\n";
    } else {