$n=99;warn $b=&b,$w=" on the wall",", $b,\nTake one down and pass it around,\n".&b(--$n)."$w.\n"while$n;sub b{$s=$n-1?'s':'';($n||'No')." bottle$s of beer"}