perl code for 99 bottles of beer

Today at Alfred Aho's invited talk at SSST-3, he mentioned the "99 bottles of beer" website, and showed the perl example code for printing out the "99 bottles of beer". It's quite amazing! I knew that people can write some pretty undecipherable perl code, but this one is cool -- run it and get the "99 bottles of beer" printed out! :D