Select Code to Download

 $image = $mainWindow -> Photo('image2', -file => 'composite.jpeg');
 
...
                -autoScaleY => "Off",
                #-autoScaleY1 => "Off",
            ) -> pack(-fill => 'both', -expand => 1);

    $image->delete;
    $image = $mainWindow -> Photo('image3', -file => 'composite2.jpeg'
+);
    
    #$mainWindow->configure(-tile => 'image3');
    $graph->configure(-tile => 'image3');