eval { ... };
  if ($@ ne "")
  {
    my $error = $@;
    cleanup();
    die "error was: $error\n";
  }