After Shelley

my ($meet,undef) = split /,/,"traveller,antique land";
my $hear = &$meet();

sub traveller
{
        @desert= ("leg of stone");
        push @desert,$desert[0];
        pedestal();
        $name = undef;
        map{print "sand "}(10**10);
}

sub pedestal
{
        $name = "Ozymandias King of Kings";
        $mighty = eval "$works && $despair";
}
[download]

Update: Altered 'pedestal' to be closer to the original, at nimdokk's suggestion.

Update: s/ancient/antique/ ;-)

--------------------------------------------------------------

g0n, backpropagated monk

Comment on After Shelley Download Code

Replies are listed 'Best First'.
Re: After Shelley by nimdokk (Vicar) on May 16, 2005 at 18:30 UTC
shouldn't that last bit in sub pedestal read: `$mighty = eval "$works" && despair();` [download] Of course despair() needs to be defined someplace :-)	[reply] [d/l]
Re: After Shelley by SamCG (Hermit) on Oct 24, 2005 at 20:29 UTC
Isn't it "antique" land?	[reply]
Re^2: After Shelley by Roy Johnson (Monsignor) on Oct 24, 2005 at 20:39 UTC
It is. Caution: Contents may have been coded under pressure.	[reply]