sub report {
  if ($die_on_error) {
    die $_[0];
  } else {
    warn $_[0];
  }
}
...
report($error) if ($error);