use Win32::GUI;
$dataform = Win32::GUI::Window->new(
            -name   => 'dataform',
            -width  => 400,
            -height => 600,
);

$dataform->AddTextfield(
    -name  => 'example',
    -text => 'Here is some text',
);
$dataform->Show();
Win32::GUI::Dialog();
sub dataform_Terminate { -1; }