#! perl
use strict;
use warnings;
use 5.010;


=head1	doc.pl

doc.pl ist ein Beispielskript wie man POD zur Dokumentation in ein
Skript integrieren koennte. Die POD kann im Quelltext oder alternativ 
mit dem Kommando "perldoc doc.pl" gelesen werden.

=cut


# Dieser Kommentar ist nicht in der POD, sondern nur für den Programmierer

=head2 Module

doc.pl benutzt derzeit keine weiteren Module (abgesehen von 'strict' und
'warnings'. Hier koennte man die Erklaerungen auflisten, warum man diese
weiteren Module eingebunden hat oder welche Features/Funktionen man aus 
diesen Modulen verwendet.

=over 4

=item CGI

Das Modul 'CGI' wird geladen, weil wir es koennen. Benutzt wird es nicht.

=back

=cut

# Welche weiteren Module brauchen wir:
use CGI;


#####################################################################
# SUB ROUTINEN

=head3 Sub Routinen

Dieses Skript definiert folgende Subroutinen:

=cut

=head4 sub foo

foo() gibt einfach den String "foo\n" auf STDOUT aus.

=cut 

sub foo {
	# wieder ein Kommentar für den Programmierer; z.B.
	# um komplexere Interna zu erläutern oder Hinweise
	# zu geben, warum man etwas genau so macht; hier z.B.:
	# Wir koennen es eben:
	say "foo";
}

=head4 sub bar

bar(arg1, arg2, ...) gibt die uebergebenen Argumenten zeilenweise
nach STDOUT aus.

=cut

sub bar {
	say for @_;
}


#####################################################################
# HAUPTPROGRAMM

foo();
bar( qw( 1 2 3 ) );