perl for exam