#! /usr/bin/perl

use strict;
use warnings;

INIT {
    print "in INIT\n";
    print "out INIT\n";
}

BEGIN {
    print "in BEGIN\n";
    
    {   package Foo;
        sub new { bless {}, shift };
        sub foo { print "I'm a ", shift, "\n"};
    }
    
    Foo->new->foo;
    
    print "out BEGIN\n";
}

__END__
in BEGIN
I'm a Foo=HASH(0x181af90)
out BEGIN
in INIT
out INIT