IWA-HWG Perl Course. Week 6 Homework