Perl template changes to be strict