IWA-HWG Perl Course. Week 5 Homework