do {
    eval {
        ...
    };
    warn ...
} while ($@);