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