Вот вариант без $image->box(fill<br>Хотя с ним, ес-но должно быть быстрее.<br><br>srand(13);<br>my $i_ppix = *Imager::i_ppix;<br>my $color = Imager::Color->new( 255, 255, 255 );<br>for my $x ( 1 .. 128 )<br>{<br>    for my $y ( 1 .. 128 )<br>
    {<br>        &$i_ppix($image, 8 * $x - 4, 8 * $y - 4, $color);<br>    }<br>}<br><br>