use strict;
use warnings;

use XML::Simple;
use LWP::UserAgent;
use Data::Dumper;

my $url = "https://--- REDACTED ----";
my $parser = new XML::Simple;
my $ua = new LWP::UserAgent;

# $ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00);

my $req = new HTTP::Request('GET', $url);
my $resp = $ua->request($req);

# print "Result from fetching $url : " . Dumper($resp);

if( $resp->is_success() ){
    # print "Result content: ". $resp->content;
    
    eval{
        my $parsed_xml = $parser->XMLin($resp->content, ForceArray => ['publishedfile']);
    };
    if( $@ ){
        print "Error parsing XML: $@";
    }
    else
    {
        print "File downloaded and XML parsed OK"
    }
}
else
{
    die "Error fetching $url : ".$resp->message;
}