version 1 en perl de metascan