use strict;
use warnings;
use Tk; 

our $MW = MainWindow->new(%{$BPP::BPPDEFAULTS::MYDEFAULTS{MAINWINDOW}}); 
$MW->geometry('800x700+0+0');
...