git @ Cat's Eye Technologies Bhuna / master eg / 99bottles.pl
master

Tree @master (Download .tar.gz)

99bottles.pl @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
#!/usr/bin/env perl

$bottles = 9999;
while ($bottles > 0) {
	print "$bottles bottles of beer on the wall,\n";
	print "$bottles bottles of beer,\n";
	print "Take none down, pass none around,\n";
	$bottles = $bottles - 1;
	print "$bottles bottles of beer on the wall.\n";
	print "\n";
}