use strict;
use Imager;

my $img = Imager->new;

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

# 縦か横が300pxになるように縮小し...
$img = $img->scale(
    xpixels => 300,
    ypixels => 300,
);

# 白い矩形を描画
$img->box( 
    xmin =>  20, ymin => 320,
    xmax => 170, ymax => 370,
    color => '#ffffff',
    filled => 1,
);

# Jpegで保存（形式は拡張子から自動判別させる）
$img->write( file => 'nya-box.jpg', jpegquality => 90 )
    or die $img->errstr;