sub CleanUpOnExit
  {
    # Get the id
    my $ID=shift(@_);

    # Delete images on the canvas
    $TK{'canvas-' . $ID}->delete("all");

    # Delete the original image
    (delete $TK{'image-' . $ID})->delete();

    # Destroy the popup window
    $TK{'pw-' . $ID}->destroy();

    # Exit the Tk window
    Tk::exit;
  }