Select Code to Download

sub selfcontrol {
  my $self = shift;
...
      for ref $self;
  carp "diem";
}

sub selfcontrol {
  my $self = shift;
  return $self if eval {$self->can("can")}; # Only objects can dance!
  carp "diem";
}