INIT是 Perl 在程序开始和结束时执行的五个代码块之一。它有助于捕获主程序的编译阶段和执行阶段之间的转换。
虽然它可以在前面加上 sub,但这不被认为是一种好的编程实践,因为这些代码块不是子程序。
INIT BLOCK