Fix examples of state usage in the perldoc