use strict;
use Imager;

my $img = Imager->new;

# 画像を開き...
$img->read( file => 'nya.png' )
    or die $img->errstr;

# ふきだし画像を透過を考慮して貼り付け...
$img->rubthrough(
    src  => do {
        my $tmp = Imager->new;
        $tmp->read( file => 'caption.png' ) or die $tmp->errstr;
        $tmp; # srcへふきだし画像のImagerオブジェクトを渡す
    },
    tx => 22,
    ty => 567,
);

# IPA Pゴシックフォントをオブジェクト化
my $font = Imager::Font->new( file => 'ipagp.ttf' );

# 文字を書き込み...
$img->string(
    x => 40, 
    y => 650,
    string => "潜入成功ニャ！",
    utf8 => 1,
    font => $font,
    size => 38,
    aa => 1,
    color => '#000000',
);

# 50% に縮小し...
$img = $img->scale(
    xpixels => $img->getwidth * 0.5,
);

# Jpeg最高画質で保存
$img->write( file => 'nya-caption.jpg', jpegquality => 100 )
    or die $img->errstr;