sub start {
  my $handle = Mod->new();
  next_funktion($handle);
}

sub next_funktion {
  my $handle = shift;
  ...
}