19 lines
225 B
Text
19 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
|