add perl sample script