package Send;
sub poke {
  my $self = shift;
  
  $self->{thingy} = 1;
}

sub new {
  return bless {}, $_[0];
}

package main;

my $obj = new Send;
$obj->poke();                # good

Send->poke();                # bad