Ищу скрипт вывода тхт в зав. от времени

Нужен ПЕРЛОВЫЙ скриптец для вывода текста из тхт в зависимости от времени. Т.е. В час дня выводится одна мессага, в два - другая.. и тд. ПЛИИЗ, посоветуйте, а то разбираться некогда, а скрипт оч нужен! Заранее спасибы

[ESE]

Вот сам исходник

#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
open TEXT,"text.txt";#файл с текстами (формат час::текст)
while (<TEXT>){
($hours,$text)=split(/\\:\\:/);
if ($hours==$hour){print $text}}
close TEXT;

а вот база text.txt
22::На горшок и спать!
6::С добрым утром страна!
13::Дата написания скрипта
14::Обед!!!
21::Смотрите новости на канале первом канале

Подключаай через SSi  и наслаждайся