use feature ':5.10'; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $response = $ua->get('https://en.wikipedia.org/wiki/File:ENIAC-changing_a_tube.jpg'); if ($response->is_success) { my $content = $response->decoded_content; open(OUT,">c:/temp/test.jpg") or die "Can't open output: $!"; binmode OUT; print OUT $content; close OUT; } else { say "Fail" } #### use LWP::Simple; my $success = getstore('https://en.wikipedia.org/wiki/File:ENIAC-changing_a_tube.jpg','c:\temp\test.jpg'); say $success;