use strict; use Win32::GUI; # First we create a window my $window = Win32::GUI::Window->new ( -width => 200, # Set the width -height => 200, # Set the height -text => "Hello World Title", # Set the title -name => "window1", # Set the name (used for event handlers) ); # Next we create a font (optional) my $font = Win32::GUI::Font->new ( -size => 20, # Set the size (in points) -name => "Comic Sans MS", # Name of the font ); # Then we add a lable to our window my $lable = $window->AddLabel( -text => "Hello World", # Set the text in the label -font => $font, # Set the font -foreground => [0, 0, 255], # Set the color of the text ); # Make sure you show your window $window->Show (); # This starts the event loop so we can now respond to events Win32::GUI::Dialog(); # The only event we want to respond to is the terminate event # The name of a sub to run an event is in the form "name_event" # If the terminate event sub is not specified your program won't exit if you hit the x sub window1_Terminate { return -1; # Return -1 to end the event loop }