BEGIN { $__KLUDGE::phase = 'BEGIN'; }
INIT { $__KLUDGE::phase = 'INIT'; }
CHECK { $__KLUDGE::phase = 'CHECK'; }
END { $__KLUDGE::phase = 'END'; }