Another solution is to make warnings fatal (see perllexwarn) and then handle it all with eval. Disadvantage is that it will also catch ordinary errors.

my $success = eval {
    use warnings FATAL => 'all';
    risky_operation();
    1;
};
unless ($success) {
    warn frob_message($!);
}
[download]