sub some_sub {
   die "Error" if ($some_condition);
}

eval { 
  my $value = some_sub();
  # do stuff with $value
};
if (my $exception = $@) {
  # exception!
  handle error here
}