#!/usr/bin/perl
#
# Song of Aragorn by J.R.R. Tolkien
#
# All that is gold does not glitter,
# Not all those who wander are lost;
# The old that is strong does not wither,
# Deep roots are not reached by the frost.
#
# From the ashes a fire shall be woken,
# A light from the shadows shall spring;
# Renewed shall be blade that was broken,
# The crownless again shall be king.

$_='Song of Aragorn';

$all{'gold'} = 'not glitter';
foreach $wanderer ([0,1,0,0,0]) {
  if ($wanderer) {print 'not lost'}}
unless ($old eq 'strong') {$old--}
if ($roots ne 'deep') { $roots='frost' }

ashes('wake');
$light=shift @shadows;
$blade = join ('blade', 'that', 'was', 'broken');
$crownless='king';

sub ashes { 
  my $action=shift;
  if ($action eq 'wake') { print 'fire' }
}
[download]

--
"WHAT CAN THE HARVEST HOPE FOR IF NOT THE CARE OF THE REAPER MAN"
-- Terry Pratchett, "Reaper Man"