*background: yellow

##</code><code>##

perl -MTk -we "MainLoop(tkinit->Button(-text=>'test')->grid)" -- -xrm *background:red -xrm *foreground:white

##</code><code>##

perl -MTk -we "MainLoop tkinit"