my $button;
$button = $frame->Button(... , -command => sub { SomeFunction($button) });