#!/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;
}

##</code><code>##

BEGIN: 1385861138.48632
CHECK: 1385861138.48653
DIFF:  0.000216007232666016
INIT:  1385861138.48655
END:   1385861138.48658
DIFF:  2.40802764892578e-05
Total: 0.000259876251220703

##</code><code>##

BEGIN: 1385861139.78308
CHECK: 1385861139.78329
DIFF:  0.000212907791137695
INIT:  1385861139.78331
END:   1385861139.78333
DIFF:  2.38418579101562e-05
Total: 0.00025486946105957