Modified perl template