use strict;
use warnings;

use LWP;

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;