perl -MTk -e 'tkinit->Toplevel()->overrideredirect(1);MainLoop;'