perl versao