$widget->my_mega_widget(-command => sub { $self->do_something });
[download]

You want a closure. We've had a number of discussions recently on closures, so I'm not going to repeat them, but urge you to search with that term.