如何创建一个接受code块一个Perl子程序

如何创建一个接受code块一个Perl子程序