My Perl template