coding as a perl program