Help for this page

Select Code to Download

Select or download this

use feature ':5.10';
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
...
else {
    say "Fail"
}

Select or download this

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