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

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