2d08413b JS |
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 |