以下Perl代码在RHEL4+Perlv5.8.6环境下测试通过