my $image = $label ->Photo('image', -height => 10, -width => 10, -format=>'XPM');