Because I like CODE refs way too much:

sub set_signal_handlers {
    my $self = shift;
    if (!%handlers) {
        # Class signal handler, only set the first time
        $SIG{USR1} = \&class_handle_USR1;
    }
    # You could index by $self->name, or by any other identifier
    $handlers{$self} = $self->handle_USR1();
}

# skip a few

sub handle_USR1 {
    my $self = shift;
    return sub {
        print "handling USR1 for ", $self->name, "\n";
    }
}
[download]

That fits all of my definitions of beautiful.