||This was my first program. I did it after about an hour or two of reading Learning Perl. I relize there are other programs that do the same thing more efficiently, but this is my first program and I have much to learn.
print "Welcome to 99 bottles of beer on the wall\n";
print "How many bottles of beer do you want on the wall\n";
print "$beer bottles of beer on the wall, $beer bottles of
beer. Take one down pass it around $beer1 bottles of beer
on the wall\n";
Back to Code Catacombs