use Win32::GUI;
$main=Win32::GUI::Window->new(-width => 400, -height => 200, -controlbox => 0);
$main->Show();
Win32::GUI::Dialog();