port page 2 example to Perl
Merge branch 'perl-dir'