ЭТА МОЙ ПЕРВЫЙ СКРИПТ НА PERL-e Прошу высказать свои коменты и доработки в коде потаму что эта моя первая работа и код кривой - сам знаю. beta -версия Тестил под фряхой все работает на ура толька еще не доправил если есть в syslog.conf: запись типа /dev/..... то скрипт повиснет,поэтому перед проверкой над закоментить это строку(и). Эта тестовый скрипт поэтому не пинайте... Я его буду модернизировать,проста время нет - сессия... Все прова защищены http://n4n0.narod.ru/c0d3/l0gbi7.pl.txt