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

I don't think you want to have to type all that nonsense every time you need to report an error.