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

##</code><code>##

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