modify perl demo