Select Code to Download

use strict;
use Scope::Guard;
...
   my $g = Scope::Guard->new(sub {$x; warn "destroyed"});
}
warn "end";

use strict;
use Test::More tests=>2;
...
}

try();