perl script - configure marking sheet