$p = new GD::Image(100,100);
my $c = $mw->Canvas(-width=>800, -height=>800, -bg=>'white')->pack(-side=>'top');
my $img = $c->createImage(0,0,-image=>$p,-anchor=>'nw');