use strict;
use warnings;
use Data::Dumper;
use feature 'say';

use HTTP::Tiny;

my $Client = HTTP::Tiny->new();

my @urls = (
    'https://mytarget.com:9999/Mode/schedule/Host/myhost?User=myuser&Token=XXXXX-AXXX-4812-B123-XXXXXXXXC&type=xml',
    'https://notarealsite.com:9999',
);

for my $url (@urls) {
    my $response = $Client->get($url);
    say $url, ": ", $response->{status};
}