sub set_signal_handlers {
  my $self=shift;
  $SIG{USR1}=sub { $self->handler_USR1() }
  ...
}

sub handler_USR1 {
  my $self=shift;
  # Now I can access the object through $self
}