IWA-HWG Perl Course. Week 2 Homework