Select Code to Download

  # Create a TK object hash
  our %TK;
...
  $TK{'image-'.$NVP{'Id'}}=$TK{'canvas-'.$NVP{'Id'}}->Photo($imagename
+,
                                                            -file   =>
+ $NVP{'File'},
                                                            -format =>
+ $extension);