IWA-HWG Perl Course. Week 3 Homework