EPG-34340: add perl test case