用perl实现一个简单的话费查询系统，本人小白，有人能指点一下么

用perl实现一个简单的话费查询系统，我是小白，有人能指点一下吗？简介:#！/usr/bin/perl -wopen(CS， quotfee.txt quot)或者死 quot无法打开fee.txt: $！\ n quot；while( lt；CS gt){ chomp($s