Adding a perl template.

This template is a bit too heavy. Will have to clean it up while using it.