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