[opensuse-es] Script de Perl