perl meVda