in reply to Downloading and saving images.
#!/usr/bin/perl use warnings; &get_web_file; sub get_web_file { use Fatal qw(open close); use LWP::Simple; use HTTP::Status; my $URL = 'http://zentara.net/2uni2.jpg'; my $localfile = '2uni2.jpg'; my $rc = mirror( $URL, $localfile ); warn status_message( $rc ) if is_error( $rc ); }
|
|---|