$GOB{W} = new MainWindow(-background => 'darkblue',
                             -borderwidth => 1,
                             -relief => 'groove',
                             -width => 500,
                             -height => 500,
                         ,);

    $GOB{W}->title("crazy tk xbm thingy");