$lable = $main->AddLabel( ... )

Win32::GUI::Dialog(); 

$label->Change(-text => "something else");

##</code><code>##

sub SomeButton_Click {
    $label->Text("Blah");
    return(1);
}