Hats off if you got the subject from the title.

package Mordor;
@EXPORT=qw(shadows);

%Rings=qw(Three Elves Seven Dwarves Nine Men);
$One=Sauron::Ring->new;
foreach $ring (keys %Rings) {
  $One->rule($ring);
  $One->find($ring);
  $One->bring($ring);
  darkness($ring);
}

sub darkness {
  bind $One, $ring;
}
[download]

CU
Robartes-