use strict;
use Win32::GUI;

my $main = Win32::GUI::Window->new(
            -name   => 'Main',
            -width  => 600,
            -height => 500
    );

my $box = $main->AddCombobox( -name => "testbox" );
my $result = $box->InsertItem("test item");

$main->Show();
Win32::GUI::Dialog();

sub Main_Terminate {
    -1;
}