Perl-скрипт обнаружения сбоя диска

Мне нужно написать сценарий, чтобы проверять диск каждую минуту и ​​сообщать, не работает ли он по какой-либо причине. Ошибка может заключаться в полном отказе диска, поврежденном секторе и т. Д.

Во-первых, мне интересно, есть ли какой-нибудь сценарий, который делает то же самое, что и должна быть стандартной процедурой (потому что я действительно не хочу изобретать велосипед).

Во-вторых, мне интересно, хочу ли я искать ошибки в / var / log / messages, есть ли список стандартных строк ошибок для дисков, которые я могу использовать?

Я много ищу это в сети, там много информации и в то же время никакой информации об этом.

Любая помощь будет принята с благодарностью.

Спасибо,