CHECK是 Perl 在程式開始和結束時執行的五個程式碼塊之一。它有助於捕獲主程式編譯階段和執行階段之間的轉換。
雖然它可以加上字首sub, 但這不是良好的程式設計習慣,因為這些程式碼塊不是子例程。
CHECK BLOCK