use LWP::Simple;
use strict;
my $URL = 'http://www.google.com/images/firefox/google.gif';

getstore($URL,'google.gif') || warn $!;
[download]

May have found the reason. The code you gave me works, but when I substitute my URL it does not save. I can goto the page in the browser, but cannot access through code. I get the 501 response code. It seems as though the site I am trying to pull from disables such a request. Does anyone know of a hack to get around this? -kcella

Just throwing out a few possibilities:
• You may be loading a page that contains FRAMES, and the image may have a URL relative to a different frame than you expect.
• The image may be Javascript-generated
• The URL you have may result in a REDIRECT that displays the final image (Update)
• The image may be over 4 Gb - IIS throws 501 errors in that case.
You may need to capture packets and/or view the page source to get more information about this problem. It would also help if you posted the image URL.

    ..."I don't know what the facts are but somebody's certainly going to sit down with him and find out what he knows that they may not know, and make sure he knows what they know that he may not know, and that's a good thing. I think it's a very constructive exchange," --Donald Rumsfeld

In addition to NetWallah's suggestions, the site may also be blocking according to the referrer URL, or by the user-agent of the "browser", or possibly even by a cookie (if the image URL is that of a CGI script). Try this code (which is completely untested):

#!perl -w

use  strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $url = 'http://www.server.com/path/to/image.gif';
my ($referer) = $url =~ m!^(https?://[^/]+/)!;

my $ua = LWP::UserAgent->new(
    agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 4.0)',
    cookie_jar => {}
);

# probably not needed, only needed if cookie is used
# to test for "real browser". highly unlikely, but you
# never know!
$ua->get($referer);

my $req = HTTP::Request->new( GET => $url );
$req->referer($referer);

print $ua->request($req)->content();
[download]

You never gave us the actual URL of the image you are trying to download so we are leading you blindly. This script works for me.

use strict;
use WWW::Mechanize;

my $local_image = './google.gif';
my $url = 'http://www.google.com/images/firefox/google.gif';
my $mech = WWW::Mechanize->new();
$mech->get( $url );
open (OUT, ">$local_image");
binmode OUT; # Windows only
print OUT $mech->content;
[download]



-silent11
Spread Firefox