use Tk; 
my $main = new MainWindow; 
print $main->screenwidth, ' ', $main->screenheight, "\n";
print join ' ', $main->maxsize, "\n";