Select Code to Download

$button->configure(-image => $photo_object);

#!/usr/bin/perl
use Tk;
...
         })->pack;
MainLoop;