use Win32::GUI;
        
        $W1 = new Win32::GUI::Window(
                -name  => "W1",
                -title => "Main Window",
                -pos   => [ 100, 100 ],
                -size  => [ 300, 200 ],
        );
  $W1->Show();
        
   Win32::GUI::Dialog();
   
  # hier das wichtige...
   sub W1_Terminate { print "Ich will mich nicht schliessen";}