...;
eval { die "Foo!" };

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

say "\$\@ after eval or do: $@";

# not same as above.
use Try::Tiny;

eval { die "Foo!" };

try {
    my $o3 = 'My::Obj'->new;
    die "Exception!";
} catch {
    warn "Caught with Try::Tiny: $_";
};

say "\$\@ after try catch: $@";