eval {
  die "Bad gas - $gas_cost\n" if $gas_cost < 1;
  ...
  return 1;
} or do {
  my $err = $@;
  
  print "Error handling gas: $err"
};