IMHO.WS - SSI в Perl

IMHO.WS (http://www.imho.ws/index.php)

- Веб-программирование (http://www.imho.ws/forumdisplay.php?f=29)

- - SSI в Perl (http://www.imho.ws/showthread.php?t=50279)

Всем привет.
У меня такой вопрос - каким образом в Perl'e можно сделать поддержку SSI?
Поясню: у меня есть Perl-скрипт, есть шаблонные html-файлы. Из этих html инфма должна вставляться как в другие html, так и в perl и php-скрипты.

Для html это:

Код:

Для PHP:

PHP код:


		
			
<? virtual("/file.html"); ?>

А вот для Perl как?

Вставляешь в нужном месте скрипта следующим фрагмент:

Код:

 open HLC, "path_from_script/file.html";

 print <HLC>;

 close(HLC);

где "path_from_script" - локальный путь от каталога скрипта до твоего шаблона.
Если работать не будет иногда необходимо предоставить на html-файл полные права доступа rwx-rwx-rwx. Но, как правило, обходятся без этого, если нужно только прочесть и вывести.