This gives a 500 error.

#!/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/Ima
+ges/High_Res/803186.jpg", $filename);
print $response;
[download]