perl program samples