<?xml version="1.0" encoding="windows-1252"?>
<node id="416388" title="Re^3: save image on web" created="2004-12-21 00:51:55" updated="2005-02-24 10:22:41">
<type id="11">
note</type>
<author id="340501">
saskaqueer</author>
<data>
<field name="doctext">
&lt;p&gt;
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):
&lt;/p&gt;
&lt;code&gt;
#!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-&gt;new(
    agent =&gt; 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 4.0)',
    cookie_jar =&gt; {}
);

# probably not needed, only needed if cookie is used
# to test for "real browser". highly unlikely, but you
# never know!
$ua-&gt;get($referer);

my $req = HTTP::Request-&gt;new( GET =&gt; $url );
$req-&gt;referer($referer);

print $ua-&gt;request($req)-&gt;content();
&lt;/code&gt;</field>
<field name="root_node">
416379</field>
<field name="parent_node">
416383</field>
</data>
</node>
