学习Perl语言编写的示例程序