Select Code to Download

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

package Obj;

...
my $obj2 = new Obj(name => 'obj2');

while (1) { }