Help for this page

Select Code to Download

Select or download this

use Tk;
use Tk::Photo;
...
$mw->Button(-image => $foto)->pack();

$mw->MainLoop;