This is example for the Warsaw Perl Workshop 9.07.2010.
