#perl -w
#---------- SSCCE ----------
use strict;
use Win32::GUI();
use constant WINDOW_WIDTH => 100;
use constant WINDOW_HEIGHT => 100;
my $main = Win32::GUI::DialogBox(
    -name => "Main",
    -text => "SSCCE",
    -helpbutton => 0,
);
my $field = $main->AddTextfield(
    -name => "TestField",
    -pos => [10, 10],
    -size => [WINDOW_WIDTH - 20, 20],
    -align => "left",
);
$main->Resize(WINDOW_WIDTH, WINDOW_HEIGHT);
$main->Show();
Win32::GUI::Dialog();