 Este programa é escrito em Perl e tem como função limpar bloqueios de forma segura, evitando problemas no sistema. 