use strict;
use Win32::GUI;

my $win = new Win32::GUI::Window(
    -name   => "Window",
    -text   => "Test",
    -width  => 200,
    -height => 100,
    -left   => 200,
    -top    => 100,
    -minsize => [200, 100],
);

my $SearchText = $win->AddTextfield (
  -left => 10,
  -top => 10,
  -width => 170,
  -height => 52,
  -text=>"",
  -name=>"searchtext",
  -multiline=>1,
);

sub searchtext_Change{
	my $rtest = 0;
        my $input ='';
        $input=$SearchText->Text();
        $rtest = $input=~/\r\n$/;
        if($rtest){print "Enter!\n";}
}

sub Window_Terminate {

    exit;
    return -1;
}

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