eval { die "Foo!" };

# Exception details not lost.
{   local $@;
    eval {
        my $o2 = 'My::Obj'->new;
        die "Exception!";
        1 } or do {
            warn "Caught with or: $@";
        };
}

warn "\$\@ after eval or do: $@";
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]