测试文件:(Perl)检查文件属性