sub run {
   my $self = shift;
   $self->_dosomething;
   ...
}