A Perl implementation of the Threesus AI which plays Threes!