Select Code to Download

use Tk;
use Tk::JPEG;
...
my $pic = $tw->Photo(-file=>$_[1]);
$tw->Label(-image => $pic)->pack;
};