IWA-HWG Perl Course. Week 1 Homework