use strict;
use Tk;

{
    package Tk::MyLabel;
    use base qw(Tk::Derived Tk::Label);
    Construct Tk::Widget 'MyLabel';

    our $photo;

    sub Populate {
    my($w, $args) = @_;
    $photo ||= $w->Photo(-file => Tk->findINC("Xcamel.gif"));
    $args->{-image} = $photo;
    }
}

my $mw = tkinit;
$mw->MyLabel->pack;
$mw->MyLabel->pack;
MainLoop;