#!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();