#!/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;
}