Perl Programming/Exercise 5 Answers

Answers
Answer 1 (entire script):