Select Code to Download

#!/usr/bin/perl

...
            'maker'=>$maker        # why? Copyright reasons??
    };
}

#!/usr/bin/perl

...

my %things = map {$_=> {'name'=>$_[0]} } (Earth::Things::list_all());
$things{men}{life}=$things{darkness}{shine} = "light";