use strict; use warnings; use Tk; my $mw = MainWindow->new(); $mw->geometry('100x300'); ...