add perl demo code