#!/usr/bin/env perl
use strict;
use LWP::UserAgent;

# リクエスト先URL
my $serverURL = "http://lifesciencedb.jp/bp3d/API/";

# 描画リクエスト用のJSON文字列を作成
my $json = <<JSON;
{
	"Common": {
		"Version":"4.0",
		"TreeName":"partof"
	},
	"Window": {
		"ImageWidth":200,
		"ImageHeight":200
	},
	"Part":[
		{
			"PartName":"Human body"
		}
	]
}
JSON

# 出力
open OUT, ">gifanimation.gif";
binmode(OUT);
print OUT  &getAnimation($json);	# 作成したJSONを利用して描画リクエスト
close OUT;

# 生成したJSONをパラメータとしてanimationに対してGETリクエストするサブルーチン
sub getAnimation () {
	my $json = shift;
	my $userAgent = LWP::UserAgent->new;
	my $request = HTTP::Request->new('GET', $serverURL."animation?".$json);
	my $response = $userAgent->request($request);
	return $response->content;
}