$canva = $fr -> Canvas (-width => $imwidth , -height => $imheight )->pack();
# takze vytvaranie canvasu je v mainwindow
#a takto za do canvasu dava obrazok
$image = $fr2 -> Photo ('nieco', -file => $obrazok);
$crimage = $canva -> createImage ( 0 , 0 , -anchor => 'nw', -image => $image, -tags => 'halo' ) ;
$crerec = $canva -> create('rectangle', 20, 20, 40, 40, -outline => 'blue' ) ;
#a ak nezadate 'nieco' za prvou zatvorkou Photo tak vam to bude
#veselo obsadzovat ram
#a este pekne funguje
$canva -> delete($creimage, $crerec);
asi 10 hodin som googlil a jeto :)