Help for this page
use Win32::GUI; $text = "Testing!"; $main = Win32::GUI::Window->new( ... sub Main_Terminate { -1; }