Status 403 when using the LWP::Simple - perl

Question

Below is the simple code that I used:
use strict;
use warnings;
use LWP::Simple;
my $url = "http://automanga.com/uploads/manga/bleach/chapters/12/09.jpg";
my $file = "09.jpg";
my $rc = getstore($url, $file);
if (is_error($rc))
{
print "getstore failed with $rc\n";
}
The link is working as I try it in the browser but somehow it just return 403 status.
Appreciate for your advice on this.

Answer 1

The book LWP and Perl (available legally for free online) is a great introduction to the LWP toolkit. In particular, the section Adding Extra Request Header Lines has a useful discussion of the kind of problem you're having here.
Unfortunately, LWP::Simple isn't up to the job. You'll want to switch to LWP::UserAgent and HTTP::Request instead. Then you can use the agent() method on your LWP::UserAgent object and header() on your HTTP::Request object to craft exactly the request that you need.
Update: I played with this a bit during my lunch break. Looks like they are blocking on the UserAgent string. Just changing that to anything will make it work.
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent('Foo');
my $url = 'http://automanga.com/uploads/manga/bleach/chapters/12/09.jpg';
my $file = '09.jpg';
my $resp = $ua->get($url);
if ($resp->is_error) {
die $resp->status_line, "\n";
}
open my $fh, '>', $file or die $!;
binmode $fh;
print $fh $resp->decoded_content;