[perl-win32-gui-users] The cancel cross (upper right) in GUI

[Nahum Marc]

How to manage the the cancel cross (upper right) in GUI to do an exit ? , not a 
window exit , but a script exit ...