#!/usr/bin/perl
#
use strict;
use warnings;

BEGIN {
    print "here we are in our begin block\n";
    eval {
        print "here we are in our eval block\n";
        INIT {
            print "here we are in an init block in an eval\n";
        }
        BEGIN {
            print "here we are in a BEGIN block in an eval in a BEGIN block\n";
        }
    };
    BEGIN {
        print "here we are in our nested begin block\n";
    }
}

CHECK {
    print "here we are in our check block\n";
}

INIT {
    print "here we are in our init block\n";
}