Simples agente de backup escrito em Perl