eval {
  # try
  blubber();
};
if ($@) {
  # catch error
  print STDERR "Error occurred: $@\n";
}