use Tk;
my $mw = MainWindow->new();

printf ("screenwidth: %d, screenheight: %d\n", $mw->screenwidth, $mw->screenheight);

my $breite=$mw->screenwidth;
    my $hoehe=$mw->screenheight;
    

$my->geometry("$breitex$hoehe");