BEGIN是 Perl 在程序开始和结束时执行的五个代码块之一。它创建了在 Perl 解释器启动后立即执行的块。在一个文件中或一个BEGIN块中可能存在多个eval'd 字符串，它们按定义顺序执行。
尽管它可以以sub为前缀，但这不被认为是良好的编程习惯，因为这些块不是子程序。
BEGIN BLOCK
