A simple noughts and crosses game written in perl