use LWP::Simple;
my $success = getstore('https://en.wikipedia.org/wiki/File:ENIAC-changing_a_tube.jpg','c:\temp\test.jpg');
say $success;