Update perl example script