抽奖系统,请指导.

抽奖系统,请指导.

抽奖系统,请指导.
公司有员工3K,过年过节会有抽奖活动.为保证公平,想随机滚动显示员工卡号,按下Enter后停止滚动,显示哪个卡号,即哪个员工中奖.请问如何用perl实现?有现成的程序么,小弟想参考并学习,谢谢诸位了!谢谢!
感觉这个用Flash做更简单些
同上.