Help for this page
use strict; use Scope::Guard; ... undef $code; printf "code2: %d\n", !!(defined $code2); warn "end";
code2: 1 code2: 1 end at x.pl line 21. destroyed at x.pl line 10 during global destruction.