скрипт на pear

вот я нашел ваш скрипт
ices.pm

Показать / Cкрыть текст

sub ices_init {
        print "Perl subsystem Initializing:\n";
        $jingle = 0;
        return 1;
}
sub ices_shutdown {
        print "Perl subsystem shutting down:\n";
}
sub ices_get_next {
        print "Perl subsystem quering for new track:\n";
  if($jingle < 5){
        $jingle ++;
        @music=`/bin/ls -1 /home/user/music/*.mp3`;
    }else{
        $jingle = 0;
        @music=`/bin/ls -1 /home/user/jingles/*.mp3`;
    }
        $num = scalar (@music);
        $play=int(rand($num));
        chomp $music[$play];
        return $music[$play];
}
return 1;

но я не знаю pear
если не трудно подскажите что здесь менять чтобы скрипт проверял если сейчас например  13:00  то подключилось /home/user/reklam/*.mp3 если стало 13:05 то включается /home/user/music/*.mp3 , и так каждый час