version1 en perl, mise en phase de test