1b593e1ea4
git-subtree-dir: third_party/git git-subtree-split: cb715685942260375e1eb8153b0768a376e4ece7
18 lines
225 B
Text
18 lines
225 B
Text
=head1 NAME
|
|
|
|
Beer - subroutine to output fragment of a drinking song
|
|
|
|
=head1 SYNOPSIS_RIGHT
|
|
|
|
use Beer qw(round finalround);
|
|
|
|
sub song {
|
|
for (my $i = 99; $i > 0; $i--) {
|
|
round $i;
|
|
}
|
|
finalround;
|
|
}
|
|
|
|
ChangeMe;
|
|
|
|
=cut
|