sub blah {

=pod

=head1 Description

sub blah ( Japs, Schnauf )

Die Funktion blah() nimmt verschieden Parameter entgegen und gibt eine Meldung aus oder wie soll ich das sonst beschrieben, ihr unpraktischen Profs!?

=head1 Parameters

  Japs:     Int 
            Anzahl der Schnaufer bei Programmfehlern 
            Default: 3
  Schnauf:  String 
            menschenlesbares Gejammer 
            Default:  NeeNeeeNeeeeee!

=head1 Returns

            String
            Mit Unfug, damit mal richtig aufgejault wird beim Prof
			
=head1 Copyleft

Schmeiss bloss swech, das Zeuch.

=head1 Additional

Das kann man noch besser machen, sagt Larry Wall

=cut

  my $japs = shift // 3; 
  my $schnauf = shift // "NeeNeeeNeeeeee!";

  for (1..$japs) { 
    print $schnauf, "\n";
  }
  
  return q<Fooooo Barrrrr! YMMD!>;

}

my $ret = blah(10,"Ihhhh was für ein schlechtes Perl!");

print "Ergebnis des Ablaufs von blah() ist '$ret'";

blah();