Select Code to Download

use strict; use warnings;
use Tk;
...
$lbl->configure(-image=>$photo);
$lbl->pack;
MainLoop;