hi i want to store textfield data in a variable but my code is not working here is my code

use Win32::GUI();

my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], );

$W1->AddButton( -name => "ButtonW1", -text => "Enter Chipname", -pos => [ 87, 100 ], #-ok => 1, );

$W1->AddTextfield( -name => "chipfield", -left => 20, -top => 40, -width => 250, -height => 20, # -prompt => ["Mix ",30], );

$W1->Show(); Win32::GUI::Dialog(); exit(0);

sub W1_Terminate { return -1; }

sub ButtonW1_Click { $chipname = $W1->chipfield->Text(), print $chipname;

#return 0; }

please help me where is problem