eval {
   ...
}
die if $@;