Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
binmode stdout;
print FILE $response->content();
close FILE;
  2. or download this
    #!/usr/bin/perl

...
use LWP::Simple qw/getstore/;

getstore("http://a1835.g.akamai.net/f/1835/276/3h/www.netlibrary.com/c
+overs/158/800/158800.gif", "test2.gif");