This is a fully-functional program for calculating the winner of a pairwise election, as featured in The Perl Journal. I will confess that this interface was designed more for flexibility and efficiency than user-friendliness, but with a little patience, it shouldn't be too tough to figure out. The idea is that you feed it a candidate list and a bundle of ballots, and it tells you the result of that election. Currently, it calcuates the Condorcet, Copeland, and Smith winners.