GD モジュールを利用した CGI

Perl

前にこんな CGI 書いたんです(OS は Windows、ActivePerl を C:\Perl 以下にインストール)。

#!/perl/bin/perl --

use GD;

$im = new GD::Image -> new(100,100);
$black = $im -> colorAllocate(0,0,0);
$white = $im -> colorAllocate(255,255,255);

$im -> fill(50,50,$white);
$im -> line(0,0,99,99,$black);

binmode STDOUT;
print $im -> png;

これがどういうわけか ActivePerl 5.12.3 で上手く動かない。前は動いたはずなんだけど…教えてエロい人 ! (ちょっと切実)

追記 : あー、手元の本で調べたら、これで動くわけがないわ…これじゃ CGI じゃなくてただのスクリプトだよ…私の思い違いですた orz