Yeah, see http://cs.marlboro.edu/code/perl/TicTacToe/ for example - I'm sure some judicious use of google will come up with more.

/J\