perl - configure marking sheet