Select Code to Download

    # Start with a blank image - somehow this causes memory cleanup
    $TK{'image-'.$NVP{'Id'}}=$TK{'canvas-'.$NVP{'Id'}}->Photo(-file =>
+ "" );
...
    $TK{'image-'.$NVP{'Id'}}=$TK{'canvas-'.$NVP{'Id'}}->Photo($NVP{'Id
+'},
                                                              -file   
+=> $NVP{'File'},
                                                              -format 
+=> $image{'extension'});

    # Create a "catch" for closing the window
    $TK{'pw-'.$NVP{'Id'}}->protocol('WM_DELETE_WINDOW' => [\&CleanUpOn
+Exit, $NVP{'Id'}]);

  sub CleanUpOnExit
  {
...
    # Exit the Tk window
    Tk::exit;
  }