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.

#!/usr/bin/perl -w
print "Welcome to 99 bottles of beer on the wall\n";
print "How many bottles of beer do you want on the wall\n";
$beer=<STDIN>;
do{
$beer1=$beer-1;
if($beer1>=0){
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";
$beer=$beer-1;
}
}while($beer>0);

Instead of asking the user for the number of beers *hic*,
the code instead gets the number as a command line
argument. If no argument is supplied, it instead uses a
default value of 99. Also, it counts down until $beer is
a false value instead of until $beer is 0 - hence, we have
to take the absolute value of that command line argument
lest the user give us a negative value and spin us off into an infinite loop. This version also
uses a subroutine and a ternary operator (expr ? true : false), which is just a fancy if-else that
is used to avoid spouting out '1 bottles'.