#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $ROBOT = LWP::UserAgent->new();
my $response = $ROBOT->get("http://a1835.g.akamai.net/f/1835/276/3h/www.netlibrary.com/covers/158/800/158800.gif");
open(FILE, ">test.gif");
binmode FILE;
binmode stdout;
print FILE $response->content();
close FILE;

##</code><code>##

#!/usr/bin/perl

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

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