my $Window = new Win32::GUI::DialogBox(
    -title  => "Top Secret",
    -left   => 200,
    -top    => 200,
    -width  => 400, 
    -height => 245,
    -name   => "Window",
    -style  => WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU,
);