Поздравляю ))<br><br><br>while (1)<br>{<br>    if ( "17-10" eq join "-", @{ [ localtime(time) ] }[ 3, 4 ] )<br>    {<br>        print "С Днём Рождения!\n";<br>    }<br>    sleep 24 * 3600;<br>
}<br><br>