|
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 |