sub Button1_Click { ... }

$main->AddButton(
  -name => 'Button1',
  ...,
);