#!/usr/bin/perl
use strict;
use warnings;

#######################################
#
#   99 bottles of beer on the wall
#   Written in object oriented Perl
#
#######################################
my $beer = Bottles->new();
$beer->Take_One_Down() while $beer->Remaining();

package Bottles;

sub new
{
	my $bottles =