use Win32::GUI; $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Swg_checkit', -height => 300, -width => 400, ); $main->AddLabel( -text => "NOOO!!" ); $main->Show(); Win32::GUI::Dialog(); sub Main_Terminate { -1; }