#!/usr/bin/perl

use warnings;
use strict;

my $beer=99;

while ($beer>0) {
	print "$beer bottles of beer on the wall, $beer bottles of beer\nYou take one down, and pass it around, $beer bottles of Beer on the wall\n";
	$beer--;
	sleep 1;
}