#!/usr/bin/env perl -l

BEGIN {
    use Time::HiRes 'time';
    $::t0 = time;
    print "BEGIN: $::t0";
}

use strict;
use warnings;

CHECK {
    $::t1 = time;
    print "CHECK: $::t1";
    print 'DIFF:  ', $::t1 - $::t0;
}

INIT {
    $::t2 = time;
    print "INIT:  $::t2";
}

END {
    $::t3 = time;
    print "END:   $::t3";
    print 'DIFF:  ', $::t3 - $::t2;
    print 'Total: ', $::t3 - $::t0;
}