add perl redis test