Pātuhitia tēnei: Perl 5 by example :