2phoinix -
да заработало у меня еще вчера в таком вот виде:
require "image.config"; #это файл, где прописаны пути к каталогу с картинками
opendir(DIR,"$imagedir");
@gif=grep(/gif\\Z/,readdir(DIR));
@jpg=grep(/jpg\\Z/,readdir(DIR));
push(@images,@gif);
push(@images,@jpg);
closedir(DIR);
srand();
$SIZE=@images;
$randnum=int rand $SIZE;
print "Content-type: image/gif\\n\\n";
$image="$imageurl/$images[$randnum]";
print qq($image\\n);
и ссылаюсь на скрипт, как говорил:
За примеры спасибо.