sub foo {
  my $self = shift; # objekt uebernehmen
  my $param1 = shift;  # erster uebergebener parameter
  my $param2 = shift;  # zweiter uebergebener parameter
  # ...
}