sub run {
   my ($self) = @_;
   ... do stuff with $self ...
}

# In user
Class->new(...)->run();