while ($beer>0) {
    print "$beer bottles of beer on the wall, $beer bottles of beer\nY
+ou take one down, and pass it around,";
$beer--; #got to subtract beer here!!!

print "$beer bottles of Beer on the wall\n";
   
    sleep 1;
}
[download]