Help for this page
$button->configure(-image => $photo_object);
#!/usr/bin/perl use Tk; ... })->pack; MainLoop;