Hi!
I've corrected the problem. I just release a new version, but it'll be
tomorrow before it's distributed on CPAN. You can also get it
immediately from:
Perfect! I'll try it tomorrow morning!
Thanks for the quick help!
LG
Rene
--
#!/usr/bin/perl #99BoB (C)2004 cavac:prg count drink vessel place act1 act2
@a...@argv;$c=$a[0]||99;$b=" ".($a[2]||"bottles")." of ".($a[1]||"beer");$w=" ".
($a[3]||"on the wall").",";do{print"$c$b$w\n$c$b,\n".($a[4]||"take one down").
", ".($a[5]||"pass it around").",\n".$c."$b$w\n\n";}while($c);print"END!\n";
