perlで動く抽選用スクリプトをお願いできないでしょうか？

・ボタンを押してもらうだけで抽選開始
・抽選をやってる期間を指定できる
・当選人数を指定できる
・ハズレの人はハズレの人用ページへ
　アタリの人はアタリの人用ページへ飛ぶ
・（できれば）連続チャレンジをある程度制限できる

あちこちのスクリプト配布サイトを探し回ってみたのですが、
ちょうどいいのが見つかりません。
お願いします。
金銭的なことは発生しない目的で使いたいので、
セキュリティ的な側面はあまりガッチリしてなくても平気と思われます。