use Tk;
$mw = tkinit;
$p = $mw->Photo(-file => Tk->findINC("Xcamel.gif"));
$mw->configure(-tile => $p);
MainLoop;