Select Code to Download

my %ruler = ( title     => "King",
              fiefdoms  => ["Narnia","Gondor","Scotland"] );

$ruler->list_fiefdoms();

package Ruler;

...
  print join(",",@{$self->{fiefdoms}})."\n";
}
1;

use Ruler;
my $ruler = Ruler->new({ title     => "Tyrant",
                         fiefdoms  => ["Mordor","Giedi Prime","Texas"]
+ });
$ruler->list_fiefdoms();