This works for me (Tk800 and Tk804, both on Linux):

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