#!/usr/bin/perl -w  

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

my $filename = "image.jpg"; 
unlink($filename); 
my $response = getstore("https://mms.image.mckesson.com/CumulusWeb/Images/High_Res/803186.jpg", $filename);
print $response;