use Tk;
use Win32::GUI;

my $mw = MainWindow->new;
$mw->title("Hello");
$mw->update;

my ($winH) = Win32::GUI::FindWindow("", "Hello");
my $style = Win32::GUI::GetWindowLong($winH, -16);
$style &= ~(WS_MINIMIZEBOX | WS_MAXIMIZEBOX);
Win32::GUI::SetWindowLong($winH, -16, $style);
Win32::GUI::DrawMenuBar($winH);

MainLoop;