Perl 代码规范

1. 打开文件失败后的错误提示规范

输出子函数名加打开的动作名及 目标文件名

open(IF,"<$filename") or die "sendfile::open $filename failed.\n";