Try using a closure:

my $self = something;
set_message( sub { $self->handle_errors(@_) } );
[download]

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]