Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;

...
$canvas->createImage(0, 0, -image => $photo, -anchor => 'nw');

MainLoop;