Help for this page
$mw->Button(command => \&func1)->pack;
$mw->Button(command => \&$self->func1)->pack
$mw->Button(command => \&{$self->func1})->pack
$mw->Button(command => \&$func1($a))->pack