use Tk;
$top=tkinit;
$p = $top->Compound(-background => "red", -showbackground => 1);
$p->Text(-text => "Hello");
$i = $top->Photo(-file => Tk->findINC("Xcamel.gif"));
$p->Image(-image => $i);
$top->Label(-image => $p, -border => 0)->pack;
MainLoop;