用perl调用modelsim实现的一个简单仿真