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