created perl testing program and sample output