git

1
=head1 NAME
2

3
Beer - subroutine to output fragment of a drinking song
4

5
=head1 SYNOPSIS_RIGHT
6

7
	use Beer qw(round finalround);
8

9
	sub song {
10
		for (my $i = 99; $i > 0; $i--) {
11
			round $i;
12
		}
13
		finalround;
14
	}
15

16
	ChangeMe;
17

18
=cut
19