IWA-HWG Perl Course. Week 4 Homework