ЭТА МОЙ ПЕРВЫЙ СКРИПТ НА PERL-e :)
Прошу высказать свои коменты и доработки в коде потаму что эта моя первая работа и код кривой - сам знаю.
beta -версия:)

Тестил под фряхой все работает на ура толька еще не доправил если есть в syslog.conf:
запись типа /dev/..... то скрипт повиснет,поэтому перед проверкой над закоментить это строку(и). Эта тестовый скрипт поэтому не пинайте...
Я его буду модернизировать,проста время нет - сессия...

Все прова защищены:)

http://n4n0.narod.ru/c0d3/l0gbi7.pl.txt