down

my @caves = (
  "down",
     "down",
        "down",
           "down",
              "down",
                 "down",
                    "deep",
                       "below");
foreach $children(@caves) {print "$down $children\n";$down.="   ";}
print "children of the caves let their\nsecret fires glow\n";
[download]

run it!

Poem by James Douglas Morrison (1943-1971), rockstar, sex-symbol and poet.
Hail thee Lizard King

Comment on down Download Code

Replies are listed 'Best First'.
(jeffa) Re: down by jeffa (Bishop) on Nov 24, 2001 at 23:08 UTC
Nice! Can we make this a round? `package Lizard::King; sub can { do { 'anything'} };` [download] "Is everybody in?!?"	[reply] [d/l]
Re: (jeffa) Re: down by TomK32 (Monk) on Nov 25, 2001 at 01:13 UTC
hey that's cool, but how about that one?	[reply]

Back to Perl Poetry