sub WriteLogFile {
   my $filename = shift;    # erster Parameter über Position, muss immer gesetzt werden
   my %opt = (              # Hash mit optionalen Parametern
       # Defaultwerte
       message          => "no message for report!",
       write_special    => "",
       output2shell     => 0,
       # mit verbliebenen Parametern aus dem Funktionsaufruf überschreiben
       @_);

   ...
   if ($opt{output2shell}) {...}
   ...
}