Samples of PERL in use