add perl program