--2019-09-18 13:07:18-- 'https://mytarget.com:9999/Mode/schedule/Host/myhost?User=myuser&Token=XXXXX-AXXX-4812-B123-XXXXXXXXC&type=xml
Resolving mytarget.com... xxx.xxx.xxx.xxx
Connecting to mytarget.com|xxx.xxx.xxx.xxx|:9999... connected.
HTTP request sent, awaiting response... 200 OK
Length: 371 [application/xml]
Saving to: .....
####
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};
}
####
https://mytarget.com:9999/Mode/schedule/Host/myhost?User=myuser&Token=XXXXX-AXXX-4812-B123-XXXXXXXXC&type=xml: 599
https://notarealsite.com:9999: 599