Create marccount.pl

initialize marccount