eval { foo() } ; if ( $@ ) {
  bar();
  die $@
}