$mw = MainWindow->new;
        $mw->geometry("639x474");
	$mw->resizable(0,0);
	$mw->configure(-background => "black");
        $mw->title("widget");

MainLoop;





Win32 Gui Window: 

my $main = Win32::GUI::Window->new(
    -name    =>    'main',
    -text    =>    'test',
    -width    =>    150,
    -height =>    150
);

MainLoop;