=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