use strict;
use Win32::GUI;
use Win32::API;
our $mainform = Win32::GUI::Window->new(
    -name=>'main',
    -text=>'main',
) or die "window creation failed: $!\n";

our $test = $mainform->AddTextfield(
    -name=>'test',
    -text=>'test',
    -left=>200,-top=>200,
    -width=>100,-height=>20,
    -readonly => 1,
) or die "control creation failed: $!\n";

$mainform->Show();

Win32::GUI::Dialog;