Examples is a project mainly written in Perl, it's free.
Book-/Examples investigated with Moose/MooseX::Declare