I'd say that's a pretty good script for learning, and much better written than your other one. I don't think these belong in CUFP, though: try Seekers of Perl Wisdom with a title asking for feedback.

Keep plugging away at it, though.

—John