Perl 代码片段