Y una combinación de Perl y script de shell: