I thought I replied but I don't see it. This worked on Linux. Thank you.

use strict;
use warnings;
use LWP;
use LWP::Simple;

my $sku = 49176;
my $url = "https://mms.image.mckesson.com/CumulusWeb/Images/High_Res/$
+sku.jpg";
my $ua = LWP::UserAgent->new;
my $resp = $ua->get($url);
print $resp->code;
my $path = '../data_files/' .$sku . '.jpg';
getstore($url, $path )  or die "Can't download: $@\n"
[download]