How to activate the accounting sub section in perl script