{ @code_refs=(); sub add_cr { push @code_refs, shift ; } sub run_cr { for my $cr (@code_refs) { $cr->(@_); } } }