Catalyst-app-example-newscripts is a project mainly written in Perl, it's free.

Example catalyst app as generated by the new scripts. Just a placeholder so I don't keep having to install -Devel and generate one