キャンバスを生成する

#!/usr/bin/perl

;#
;#キャンバスを生成する
;#

use strict;
use Image::Magick;

#------------------------------------------#
#動的に画像を生成する
#------------------------------------------#
my $i = 1;
foreach my $color ('white', 'red', '#0000FF') {    #背景色

    #-- インスタンス生成 --#
    my $image = Image::Magick->new;

    #-- 画像設定 --#
    $image->Set(size=>'100x100');        #キャンバスサイズ
    $image->Read("xc:$color");           #背景色

    #-- 画像保存 --#
    $image->Write("canvas_$i.jpeg");

    #-- オブジェクト破棄 --#
    undef $image;
    $i++;
}