>900
エラーメッセージ出てるならここに貼ってみて。
メッセージわからないなら以下を試してみて
結果をここに書いてみて。

#!/usr/local/bin/perl
print "Content-type: text/plain\n\n";
$imgfile = int(rand(3));
open(IN, "../img/$imgfile.jpg") or print $!;
@IMG = <IN>;
print "Content-type: image/jpeg\n\n";
ptint @IMG;