急~~~~~·

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