[WD`]

как повернуть уже знаю.. но вот..
я торможу?
вроде банально, но не работает:

#!/usr/bin/perl
use GD;
print "Content-type: image/png\n\n";
open (PNG,"over.png") || die;
$im = newFromPng GD::Image(\*PNG) || die;
close PNG;
$im1 = new GD::Image(250,250);
for($i=0;$i<250;$i++)
 {
  for($k=0;$k<250;$k++)
   {
      $im1->setPixel ($i,$k,$im1->colorAllocate ($im->rgb ($im->getPixel ($i,$k) ) ) );
   }
 }
binmode STDOUT;
print $im1->png;

слева кусок картинки, и все белое