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

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