use Win32::GUI;

$mw = new Win32::GUI::DialogBox(
  -text         => 'Test',
  -left         => 300,
  -top          => 100,
  -left         => 60,
  -width        => 200,
  -height       => 200,
);

$mw->Show();


$text = $mw->AddTextfield(
  -left         => 0,
  -top          => 10,
  -size         => [150,25],
   
);

$result = $mw->AddTextfield(
  -left         => 0,
  -top          => 40,
  -size         => [180,100],
);


$button = $mw->AddButton(
  -name         => 'button',
  -text         => 'Go',
  -left         => 160,
  -top          => 10,
  -visible =>1,
  -default      => 1,
  -ok   => 1, 
  
);

$text->SetFocus();

Win32::GUI::Dialog;

sub button_Click {

$line = $text->GetLine(1);
$result->Append($line);

}