My perl program