sub foo
{
    sub BEGIN
    {
        print "BEGIN\n";
    }

    sub INIT
    {
        print "INIT\n";
    }

    sub END
    {
        print "END\n";
    }
}