INIT是 Perl 在程式開始和結束時執行的五個程式碼塊之一。它有助於捕獲主程式的編譯階段和執行階段之間的轉換。
雖然它可以在前面加上 sub，但這不被認為是一種好的程式設計實踐，因為這些程式碼塊不是子程式。
INIT BLOCK
