package Test1; CHECK { warn "Test1::CHECK1 running" } INIT { warn "Test1::INIT1 running" } UNITCHECK { warn "Test1::UNITCHECK1 running" } sub method { warn "method()" } 1;