$something->set_call_back(sub { $this->func(@_) });
[download]

presuming $this is a lexical variable so that it'll be closure'd properly.

-- Randal L. Schwartz, Perl hacker