There is WWW-Poll, but it is quite buggy. I tried it, and I had to modify a few things just to be able to run the tests.

It may be a good start if you don't want to write your own system from scratch.

In Poll.pm, change line 281 from  undef (@maxvotes,@votes); to undef (@maxvotes); undef(@votes);

In the demo script you have to change the starting path to "data" and it should work. After that, you're on your own.

Good luck.