急~~~~~·

急~~~~~?
谁能 帮我用perl写个程序啊？用perl写CGI脚本也行！要求如下：1 程序中必须同时使用标量、数组和散列数据类型；
2 程序长度必须大于50个简单语句；
3 程序中必须打开并关闭一个文件；
4 必须通过程序把输出结果存储在一个文件中；
5 程序中必须使用一个正则表达式；
6 至少使用一个循环语句；
7 至少使用一个子程序；
8 建议程序中使用“引用”；