my $x;
my $code = do {
    my $g;
    sub { $g = Scope::Guard->new( sub { warn "destroyed";  $x ; 
} ) };
};
$code->();
undef $code;
warn "end";