use Tk;
$mw=tkinit;
$mw->configure(-background => "red");
MainLoop;