added simple perl counting example