[perl-win32-gui-users] How to terminate a window in Win32:GUI

[Maxmelbin Neson (RBIN/EMT1)]

Hello ,

I have a button CANCEL which should close the window  .. How to do it ?
What is the method 
My code ..

use Win32::GUI;
use Win32::GUI::GridLayout;

$main = Win32::GUI::DialogBox->new(-name => 'Main',
                                -text => 'Perl Win32 GUI',
                                -width => 550,
                                -height => 650,
                                -maximizebox => 0,
$main->AddButton(
                -name => "cancel",
                -width=>110,
                -height=>27,
                -left => 360,
                -top =>580,
                -text=>"CANCEL",
                  );

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

sub Main_Terminate {
    -1;
}

sub cancel_Click {
    ?????
}


Thanks and Regards
Maxmelbin Neson
------------------------------------------------------------------------
-----------------------------------------
Robert Bosch India Limited
Engineering Services - DS - Methods and Tools (RBIN/EMT1)
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA
Telephone: +91 80 6657-4532      Fax: +91 80 6657-1404
[EMAIL PROTECTED]
www.bosch.com