Select Code to Download

use strict;
use warnings;
...
Rooster Cat
Dog Donkey

/usr/bin/perl -w /home/lanx/perl/IPL/poset.pl 
---------- Input
...
{}
---------- Result
["Donkey", "Dog", "Cat", "Rooster"]