ブラウザのCookieを使ってDLする

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Cookies::Safari;
use WWW::Pixiv::Download;

my $illust_id = shift || die qq(! failed: "illust_id" not found.\n);

my $cookie_jar = HTTP::Cookies::Safari->new;
$cookie_jar->load( "$ENV{HOME}/Library/Cookies/Cookies.plist" );

my $client = WWW::Pixiv::Download->new;

$client->user_agent->cookie_jar( $cookie_jar );
$client->download($illust_id);

__END__

ブラウザ（この場合サファリ）のCookieを使ってログイン状態にもっていく。
$client->login を省略する分速いかというと、Cookieの読み込みが重かったりして、、、