Code examples for my talk on Israel Perl Workshop 2013