Select Code to Download

$cvsA->create('image', ...);
$cvsB->create('image', ...);

my %image_data_for = (
    A => {
...
    my $img = $mw->Photo($image_data->{name}, -data => $image_data->{d
+ata});
    $canvas->create('image', 30, 30, -image => $img);
}