#!/usr/bin/perl open(TEMPLATE,"ENTRIES") or die "Can't open the ENTRIES file"; $cnt = -1; while(