$@= "Before";
my $end= "None";
eval q{
    {
        local $@;
        eval 'die "DoNotLeak\n"';
    }
    $end= $@;
};
print "($end)\n";