#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my @ids = 0 .. 3;

while () {
    eval {
        my $id = pop @ids;
        die $id if $id;
        open my $fh, '<', 'pm_1146365_nonexistent_file';
    };
    warn "TRAPPED: $@" if $@;
    last unless @ids;
}

##</code><code>##

$ pm_1146365_multi_eval.pl
TRAPPED: 3 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: 2 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: 1 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: Can't open 'pm_1146365_nonexistent_file' for reading: 'No such file or directory' at ./pm_1146365_multi_eval.pl line 13